Hi,

I'm currently having trouble copying and pasting a selection of data. Copy range (H16:H18), Paste into another sheet (B:B & LastRow). It will only paste 3 rows of data, and it is not pasting it to the end of the "LastRow". My code is below:

'Find Last Row
Dim LastRow As Long
With Worksheets("2. BA&R Customer Product Tab")
LastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
End With

'Copy Multiple BA&R Entities
Worksheets("Multiple BA&R Dimension").Activate
Worksheets("Multiple BA&R Dimension").Range("H16:H18").Select
Selection.Copy

'Paste Multiple BA&R Entities
Worksheets("2. BA&R Customer Product Tab").Activate
Worksheets("2. BA&R Customer Product Tab").Range("B10:B" & LastRow).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Thanks,
Dan