Makro: leere Zellen überspringen

Sub UmwandlungKostenstellen()
Application.ScreenUpdating = False
z = Worksheets("Quelle").Range("A65536").End(xlUp).Row
x = 2
For i = 1 To z
For j = 1 To 15
With Worksheets("Quelle")
.Cells(i + 1, 1).Copy Destination:=Worksheets("Ziel").Cells(x, 1)
.Cells(i + 1, j + 1).Copy Destination:=Worksheets("Ziel").Cells(x, 2)
End With

Worksheets("Ziel").Cells(x, 3) = Worksheets("Quelle").Cells(1, j + 1)
x = x + 1
Next j
Next i
Application.ScreenUpdating = True
End Sub

Ich bin nun auf der Suche nach einer Möglichkeit, dass der Code bei leeren Zellen in die nächste Zeile springt, d.h. die Umwandlung soll nur Zellen mit Inhalt betreffen, Zellen ohne Inhalt sollen übersprungen werden. Habe einige IF-Anweisungen ausprobiert, welche leider nicht geklappt haben.
Vielen Dank im voraus
Gruß

Carl