Jeff,

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Option Explicit
Sub TEST()

Dim R As Long
Dim F As String

Range("B:E").Clear

R = Cells(Rows.Count, 1).End(xlUp).Row
F = "=OFFSET(Sheet1!$A$1,ROW()*5-5+COLUMN()-2,0)"

With Range("B1:E" & Int(R / 5 + 0.5))
.Value = F
.Value = .Value
End With
Range("B:E").EntireColumn.AutoFit

End Sub
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -



--
Regards,
Soo Cheon Jheong
_ _
^¢¯^
--