1
ActiveWorkbook.Names.Add Name:="RecordCount", RefersToR1C1:="=tblConveyanceLevelTCArrivedVsRe!R1C100"

Range("CV1").Select
ActiveCell.FormulaR1C1 = "=COUNTA(C[-99])"

RecordCount = Range("RecordCount")

Range("A2:L" & RecordCount).Select

'Range(Selection, Selection.End(xlDown)).Select

Selection.Copy

Windows("TC Receiving Report Template.xlsm").Activate
      
Sheets("Arrived Vs Received Status").Select

Range("A2").Select

Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=False
    
Windows("ConveyanceLevelTCArrivedVsReceivedStatus.xlsx").Activate

Application.CutCopyMode = False
    
ActiveWindow.Close SaveChanges:=False

I am not sure why the paste.special feature is not working.

Sam
  • 5,424
  • 1
  • 18
  • 33

0 Answers0