I need to enhance the following code from JE Mcgimpsey (if not mistaken). nt.
The €œ4992€� is to be made variable, ie. value from a cell named €œRowCount€�
which has the formula €œ=Rows()€�.

Dim i As Long
For i = 2 To 4992 Step 26
Cells(i, 18).Resize(1, 30).Value = _
Cells(i + 25, 18).Resize(1, 30).Value
Next i
End Sub

Any assistance will be appreciated.
Thank you
--
Robert