copy & paste

[giraffamusme]

I have a very large spreadsheet. I have data that is in a range of cells in every 7th row. I need copy that data (different in every 7the row) to blank cells in the same columns in the next 6 rows. It will take hours to do it manually. Can anybody help me out?

[Paul]

Hi Giraffamusme, welcome to the forum.

Does this example sound correct.. You have data in A1:Z1, A8:Z8, A15:Z15, etc. and you simply want to fill A2:Z6 with the values from A1:Z1, A9:A14 with the values from A8:Z8, etc.?

If so, the following macro should work:

Sub filldown()
Dim i As Long, lastrow As Long
lastrow = Range("A" & Rows.Count).End(xlUp).Row

For i = 1 To lastrow Step 7
    Range("A" & i & ":Z" & i).Resize(7, 26).filldown
Next i
End Sub

Another, non-macro option would be (assuming the same data setup):
1. Select A1:Z21 (6 rows past your last row of data, 21 is an example if your last row of data was Z15).
2. Press F5 then click Special...
3. Select Blanks and click OK
4. Type the following formula (A2 should be selected): =A1
5. Press CTRL+ENTER, not just ENTER

This will fill all empty cells with the value from the cell above it.