--
Brilliant, Mr McGimpsey thanx for the help :)


Thanks in advance for your help....Bob Vance

"J.E. McGimpsey" wrote in message
...
one way:

Public Sub CopySelectionEvery72UntilRow5112()
Dim i As Long
Dim destRng As Range

With Selection(1)
Set destRng = .Cells
For i = .Row + 72 To 5112 Step 72
Set destRng = Union(destRng, Cells(i, .Column))
Next i
.Copy destRng
End With
End Sub


In article ,
"Bob Vance" wrote:

This Macro lets me copy down every 72 cells till 5112, But it does not
copy
the font or size, can I adjust it to copy everthing in the cell,

Public Sub CopySelectionEvery72UntilRow5112()
Dim i As Long
With Selection(1)
For i = .Row + 72 To 5112 Step 72
Cells(i, .Column).Value = .Value
Next i
End With
End Sub


Thanks in advance for your help....Bob Vance