how do i skip blank rows? sheet 1 has d10=alex, d17=ben, d24=carlo, i
transferred them to sheet 2,
B4 alex 1
<blank
<blank
B11 ben 2
<blank
<blank
B18 carlo 3

what do i need to add in my code?
Sub Macro1()
Application.ScreenUpdating = False

rowref = Sheet6.Cells(2, 2)
Sheets("Dept Summary").Select
a = 3
For X = 10 To rowref Step 1
a = a + 1
Name = Sheet2.Cells(X, 4)
Sheets("PHTemp").Select
Cells(a, 2) = Name
Next X

Sheets("Dept Summary").Select
destcol = 3
For rowtocopy = 10 To rowref Step 1
destcol = destcol + 1
Range(Cells(rowtocopy, 29), Cells(rowtocopy, 35)).Select
Selection.Copy
Sheets("PHTemp").Select
Cells(destcol, 5).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False

Sheets("Dept Summary").Select
Next rowtocopy
Sheets("PHTemp").Select

Application.ScreenUpdating = True
End Sub