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