Copy specific row from series of sheets to sheet 1 in the workbook

[Ed Judge]

Haven't done any VBA in a long time so I'm very rusty. I need to copy cells A2 - G2 from sheets 2 - 30 in a workbook to create rows Sheet 1, which will start out blank.

Any assistance pointing me in the right direction is greatly appreciated. This is the final part of longer process. Sheet 1 is used as a summary page.

 

[davesweep]

Hi,

Something like this?

Sub a()
Dim iSheets As Integer, iRow As Integer

For iSheets = 2 To 30
With Sheets(1)
iRow = .Range("A" & .Rows.Count).End(xlUp).Row + 1
.Range("A" & iRow & ":G" & iRow).Value = Sheets(iSheets).Range("A2:G2").Value
End With

Next iSheets

End Sub

 

[Ed Judge]

Thanks for that quick reply, davesweep. I love it when something works the very first time. I knew I came to the right place.