VBA code kopieren van bestand A naar bestand B beginnend met nieuwe regel

Sub kopieren()
    Dim bNietOpen As Boolean, WB

    bfile = "BestandB.xlsx"
    With ThisWorkbook.Sheets("blad1")
        arr = Array(.Range("B2").Value, .Range("B3").Value, .Range("B4").Value)        'je gegevens
    End With

    On Error Resume Next
    Set WB = Workbooks(bfile)                                        'misschien is Bfile al open
    If WB Is Nothing Then                                            'niet open, dus openen
        Set WB = Workbooks.Open(ThisWorkbook.Path & "\" & bfile)
        bNietOpen = True
    End If

    If WB Is Nothing Then MsgBox "probleempje", vbCritical: End

    With WB.Sheets("blad1")
        .Range("A" & .Rows.Count).End(xlUp).Offset(1).Resize(, UBound(arr) + 1).Value = arr
    End With

    If bNietOpen Then WB.Close 1                                     'indien B niet open was, opslaan en sluiten
End Sub

Sub VenA()
  c00 = "E:\Temp\BestandB.xlsx"
  ar = [B2].Resize(3)
    With Workbooks.Open(c00)
    .Sheets("Blad1").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 3) = Application.Transpose(ar)
    .Close -1
  End With
End Sub