Copy a row and then paste into all blank rows

[helly123]

Hi everyone,

I have a macro which inserts blanks rows in between each row of data. I then would like to copy the formula in row 3 and paste it into the newly created rows. These are blank rows and are all odd in number.

For example:

Row 3 has cells with a formula to copy the above cell and left one ( =OFFSET(D3,-1,-1) =OFFSET(D3,-1,-1) etc. etc.) and I would like a macro to select all of row 3 and paste special these formula's into the new blank rows / odd rows

Hope that made sense

Helen

 

[Legacy 143009]

Something like this? It will auto increase references. You must fix the rows with $ if you don't wan to..

Sub test()
  Dim lRow As Integer
  lRow = Cells(Rows.Count, 1).End(xlUp).Row + 1

  For i = 5 To lRow Step 2
    Range("C3:H3").Copy Range("C" & i)
  Next
End Sub

 

[helly123]

Something like this? It will auto increase references. You must fix the rows with $ if you don't wan to..

Sub test()
  Dim lRow As Integer
  lRow = Cells(Rows.Count, 1).End(xlUp).Row + 1

  For i = 5 To lRow Step 2
    Range("C3:H3").Copy Range("C" & i)
  Next
End Sub

Brilliant, thank you!

 

[Legacy 143009]

Thanks for the feedback!

 

[Legacy 143009]

Glad it did help