gheyman
Well-known Member
- Joined
- Nov 14, 2005
- Messages
- 2,347
- Office Version
- 365
- Platform
- Windows
This is copying what's in columns C:G and pasting them correctly but its not copying the second piece (L11 & LstRw)
Code:
Sub Grab_BOEs()
Dim LstRw As Long
Sheets("54_TPL_01_02 Consolidate").Activate
LstRw = Range("C" & Rows.Count).End(xlUp).Row
'WBS Number, WBS Title, Task Start, Task End, Resource Code
Sheets("54_TPL_01_02 Consolidate").Range("C11:G" & LstRw).Copy
Sheets("Load_Table").Select
Range("A11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'Estimated Amount
Sheets("54_TPL_01_02 Consolidate").Range("L11" & LstRw).Copy
Sheets("Load_Table").Select
Range("G11").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub