excel vba code sample for deleting blank rows rows

excel vba code sample for deleting blank rows rows Dim counter As Integer, y As Integer

counter = 0

For y = 1 To 10

If Cells(y, 1).Value <> "" Then

Cells(counter + 1, 2).Value = Cells(y, 1).Value

counter = counter + 1

End If

Next y