Try...
------------------------------------
Private Sub CommandButton1_Click()
Row = 7 ' adjust starting point as needed
Range("A" & Row).EntireRow.Copy
For i = 0 To 1000 Step 45
'adjust to meet your needs
If Range("A" & Row + i) = "" Then Range("A" & Row + i).PasteSpecial
Next i
End Sub
------------------------------------
Does this work for you?
--
swatsp0p
------------------------------------------------------------------------
swatsp0p's Profile:
http://www.excelforum.com/member.php...o&userid=15101
View this thread:
http://www.excelforum.com/showthread...hreadid=373342