Hi

I get this error when i copy columns from one workbook to another



Sub ExportFile_Click()

Dim wbk1 As Workbook
Dim wbk2 As Workbook
Dim FormatRow As Long

Dim strFName As String
Dim strtemp1 As String
Dim CopyCol As Long
Dim CopyCol1 As Long
Dim CopyCol2 As Long
Dim wb As Workbook

strFName = Sheet1.Range("A11").Value
strtemp1 = Sheet1.Range("A12").Value
 

Application.ScreenUpdating = False

Set wbk1 = Workbooks.Open(strFName)
ActiveSheet.Name = "Sheet1"
With wbk1.Sheets("Sheet1")
CopyCol = Range("B" & Rows.Count).End(xlUp).Row
Range("B2:B" & CopyCol).Copy
End With

Set wbk2 = Workbooks.Open(strtemp1)
With wbk2.Sheets("Sheet1")


    Range("D2").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
       False, Transpose:=False
       wbk2.Save
       wbk2.Close
       
End With

With wbk1.Sheets("Sheet1")
CopyCol1 = Range("E" & Rows.Count).End(xlUp).Row
Range("E2:E" & CopyCol1).Copy
End With

Set wbk2 = Workbooks.Open(strtemp1)
With wbk2.Sheets("Sheet1")
   Range("G2").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
     False, Transpose:=False
       wbk2.Save
       wbk2.Close
       
End With
I get this error when i paste in D2... Any suggestions please