Macro to copy cells one row up then move down 4 rows & repeat

[Guest]

I have a downloaded report that does not have data on one row. I need to
copy 5 cols. of data from one row to the row above then move 4 rows down and
repeat. I've done this with Lotus years ago, but never with Excel

Thanks,

 

[Tom Ogilvy]

If you mean you want to remove all blank rows in a report

Sub RemoveRows()
On Error Resume Next
Columns(1).SpecialCells(xlBlanks).EntireRow.Delete
On Error goto 0
End Sub

 

[Geof Wyght]

Josef,
Assuming you know where to start and when to stop, here's
an example that starts at row 2 and loops 3 times.
Geof.
Sub testcopy()

Dim lngCounter As Long
Dim lngCurrentRow As Long
Dim lngTotal As Long

lngCurrentRow = 2
lngTotal = 3

For lngCounter = 1 To lngTotal
Range("A" & lngCurrentRow, "E" &
lngCurrentRow).Copy Destination:=Range("A" &
lngCurrentRow).Offset(-1, 0)
lngCurrentRow = lngCurrentRow + 4
Next lngCounter

End Sub

 

[Guest]

Geof,

Thanks, it worked like great. I guess you can't copy macros into the macro
editor? I retyped it and worked.

Thanks again

 

[Josef]

Josef,
You're welcome. You should be able to copy & paste the
code. It might have some junk. I commented out many
statements. Longer lines had carriage returns when posted
You might have had the goofy >> characters.
Geof.