When executed I get a Run-time error '13': Type mismatch

Here is a part of the code:
Set VMM_Workbook_C = ActiveWorkbook
Rows("6:6").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Set VMM_Workbook_B = ActiveWorkbook

nr = Cells("a2").End(xlDown).Row + 1

** With this location I want to paste the copied information above **

ActiveSheet.Paste
Range("A1").Select
Application.CutCopyMode = False
Rows("6:6").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Sort Key1:=Range("B6"), Order1:=xlAscending, Key2:=Range("E6") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal,
DataOption2 _
:=xlSortTextAsNumbers

Thanks



"Don Guillett" wrote:

you can either look down from the top or, better yet, from the bottom up
nr=cells("a2").end(xldown).row+1
lr=cells(rows.count,"a").end(xlup).row+1
--
Don Guillett
SalesAid Software

"Dan" wrote in message
...
I need to paste data from one worksheet into another. The copying of the
data
is not the issue. How do I determine the location of the first blank cell
in
a Column A to paste the data?