Pasting Data using LastRow Range

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

I want it to paste into the selection B10 to B Last Row. In that column, there will be blank rows along with not blank rows.

So in this case it should be pasting from B10 to B30, but it is stopping at B10 to B12.

Thanks,
Dan

You're only copying three cells, so what are looking to paste from B13 to B30?

Can you post a sample workbook (Use: Go Advanced > Manage Attachments) with fake or non-private data so we can see what you're working with?

I'd be looking to copy those three cells over and over again until it reached the last row.

So like this:
a
b
c
a
b
c
etc.

Your procedure needs a loop, but I'm still not clear on what your spreadsheet looks like. Is it pasting over data in B10:B30? Your procedure uses column B to identify the last row, so if it was supposed to find row 30 to be the last row, that would mean there was already data down through B30 that your procedure is meant to paste over. That doesn't sound like what you're aiming for. Can you post a sample workbook or try to paint a better picture of the 'before' and intended 'after'?