Loop Macro

[robjowens]

Sub Macro4()
'
'
Sheets("Data").Range("A2:E2").Copy
' data goes down in rows, i.e. next line is A3:E3...
Sheets("Inputs").Range("A2:E2").PasteSpecial xlPasteValues
'This Range remains static
Sheets("Inputs").Range("A4:M15").Copy
Sheets("Results").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues
End Sub

the last part of this is killing me! I trying to work out a 'Do Until' loop that works through a list of data (the first line of code) the rest of the code is fine, it's just this last line!

 

[robjowens]

I got it to work but there seems to be a problem with one of the columns that has text in it - Any ideas?

Sub Macro4()
  
Range("A1:E1").Select
Do Until IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Selection.Copy
Sheets("Inputs").Range("A2:E2").PasteSpecial xlPasteValues
Sheets("Inputs").Range("A4:M15").Copy
Sheets("Results").Range("A" & Rows.Count).End(xlUp).Offset(2).PasteSpecial xlPasteValues
Loop
End Sub