Select Lastrow + 2 "NEWBIE"

[wrightyrx7]

Hi all,

I have tried to record a macro to give me an idea of how the VBA code will go. I am trying to create a macro that will do the following:-

Copy data from a worksheet but as the number of rows changes every month it needs to be as follows.

Column H(lastrow +2) & Column I(lastrow +2)

then i want it to paste on my Summary worksheet. Here is the code from the recorded macro. As you can see with the first one i have tried changin it but it doesnt seem to work.

Sub Macro6()


Sheets("GMPF Added Years").Select
Range(LASTROW + 2, "H").Select
Selection.Copy
Sheets("Summary").Select
Range("B4").Select
ActiveSheet.Paste

Sheets("GMPF Added Years").Select
Range("I11").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Summary").Select
Range("C4").Select
ActiveSheet.Paste

Sheets("GMPF Add Reg Cont").Select
Range("H4").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Summary").Select
Range("B5").Select
ActiveSheet.Paste

Sheets("GMPF Add Reg Cont").Select
Range("I4").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Summary").Select
Range("C5").Select
ActiveSheet.Paste

Sheets("GMPF").Select
Range("H1286").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Summary").Select
Range("B6").Select
ActiveSheet.Paste

Sheets("GMPF").Select
Range("I1286").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Summary").Select
Range("C6").Select
ActiveSheet.Paste

Sheets("GMPV AVC").Select
Range("H9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Summary").Select
ActiveSheet.Paste

Sheets("GMPV AVC").Select
Range("I9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Summary").Select
Range("C9").Select
ActiveSheet.Paste

Any help would be great

Thanks
Chris

 

[Andrew Poulsom]

What's lastrow? If it's the row number of the last nonblank cell why do you want to copy the blank cell 2 rows below it?

 

[wrightyrx7]

Hello thank you for the reply,

Yes last row is the row number of the last nonblank. I want 2 rows below because a macro i run first totals the column and puts the result in Lastrow + 2.

Thats the data i want to copy.

Thanks
Chris

 

[Andrew Poulsom]

So it's LastRow at that stage. Instead of:

Sheets("GMPF Added Years").Select
Range(LASTROW + 2, "H").Select
Selection.Copy
Sheets("Summary").Select
Range("B4").Select
ActiveSheet.Paste

try:

Dim LastRow As Long
With Sheets("GMPF Added Years")
    LastRow = .Range("H" & .Rows.Count).End(xlUp).Row
    .Range("H" & LastRow).Copy Sheets("Summary").Range("B4")
End With

Note that generally it's not necessary to select an object to use its properties/methods.

 

[wrightyrx7]

Ohhh yes! How stupid of me... Thank you very very much.