Ytdyklly

I am very green to code so apologies if this has already been answered but I am struggling to find a code that covers what i would like to do.

So i have to two workbooks, one has a list of my projects the other also lists these projects but is used for a different purpose, currently defined as "January_2019". Currently i manually enter new rows in the second workbook containing January_2019 and physically copy and paste the new projects names and numbers over from Projects workbook. Simple enough but wondered if this could be automated with VBA.

I need to bring in the project number I allocate (column A in WB1) and paste it in column B in WB2. As well as and the Name (column F in WB1) and paste into column C in WB2.

Can the data set be compared and rows inserted to suit the new data?

I have had a go at the code based on what i have found but all help would be appreciated as i am getting an runtime error 9 for the "else" part.

Sub InsertJobs()



Dim wbkA As Variant

Dim varSheetA As Variant

Dim varSheetB As Variant

Dim strRangeToCheck As String

Dim iRow As Long

Dim iCol As Long



Set wbkA = Workbooks.Open(Filename:="P:Projects.xls")

Set varSheetA = wbkA.Worksheets("Job_List")



strRangeToCheck = "A1:G500"

Debug.Print Now

varSheetA = Worksheets("Job_List").Range(strRangeToCheck)

varSheetB = Worksheets("January_2019").Range(strRangeToCheck)

Debug.Print Now



For iRow = LBound(varSheetA, 1) To UBound(varSheetA, 1)

    For iCol = LBound(varSheetA, 2) To UBound(varSheetA, 2)

        If varSheetA(iRow, iCol) = varSheetB(iRow, iCol) Then

            ' Cells are identical.

            ' Do nothing.

        Else

            ' Cells are different.

            Sheets(varSheetA).Range("A" & "F").Copy 

 Destination:=Sheets("January_2019").Range("B" & "C")



 Dim i As Long, r1 As Range, r2 As Range

 For i = 4 To 500

  Set r1 = Range("A" & i)

  Set r2 = Range("B" & i & ":C" & i)

 Next i

        End If

    Next iCol

 Next iRow



 End Sub