Copy, paste, then move down next row until end of data

[kjfred]

Would like assistance on the following routine.

Want to start with selecting B20 (data is updated in the sheet when a cell in column B is selected), copy the updated data in K15:S15, and paste into the end of row 20, which will be column AA for this sheet, then repeat selecting the next cell in column B until there is no data left in B. So the loop would go to B21, copy, then paste, then B22 and so forth until no data left in B.

My code below works but need to make a loop until no data left to select in column B:

Sub SelectMNPasteValues()
'
' SelectMNPasteValues Macro
'

'
Range("B20").Select
Range("K15:S15").Select
Application.CutCopyMode = False
Selection.Copy

Range("AA20").Select
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

 

[Dan_W]

The fact that there is another macro in the background working at the same time makes this a little tricky, but not too insurmountable. It's not entirely clear what you're asking for though -
(1) what happens with cells B22, B23, B24, etc? Do you intend to process those as well, because they look different to the first two?
(2) You said "selecting the next cell in column B until there is no data left in B", but after B24, you have two empty cells.
If you can be more specific about which cells are to be selected and processed, it shouldn't be too difficult to help you to adjust your code.

 

[mumps]

Can you post the code that updates K15:S15?