Stop Copying at Specific Row
Thanks for your examples.
But, alas they don't work.
One copies to the entire range
the other keeps going past row B18
Thanks for your prompt response
Much appreciated.
With Thanks
Steve
---------------------------------------------------------------------------------------
Sub CopyRange2()
Sheets("Sheet1").Range("B8").Select
'find your empty cell
Do Until ActiveCell.Formula = ""
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Formula = Range("B5:G5").Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:=False
Application.CutCopyMode = True
'Stop copying when the copying reaches B18:G18
Range("A1").Select
End Sub
------------------------------------------------------------------
|