I'm not sure what I'm doing incorrectly, but this code is giving me an error.

Sub Create_ADP_Import()
    Dim wb1 As Workbook
    Dim wb2 As Workbook
    Dim LastRow As Long
    Dim LastCol As Long
    
    Set wb1 = ActiveWorkbook
    Set wb2 = Workbooks.Add()
        With wb2
            .SaveAs Filename:="EPISJY01", FileFormat:=xlCSV
        End With
    LastRow = wb1.Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row
    
    wb1.Worksheets(1).Range(Cells(2, 1), Cells(LastRow, 1)).Copy
    
    
End Sub