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