お力を貸してください。

こんな感じでどうでしょうか。

また、a1.xlsとb1.xlsとc1.xlsを開いた状態で（ファイルの存在チェックとか簡略化するため）、

a1.xlsの標準モジュールにコードをコピーして実行してください。

同じ場所にa1.csvというファイル名で保存します。

Sub Macro()
    Dim lastRow As Long
    Dim i As Long
    Dim wb As Worksheet
    Dim wc As Worksheet
    Dim r As Range
    
    Set wb = Workbooks("b1.xls").Worksheets(1)
    Set wc = Workbooks("c1.xls").Worksheets(1)
    
    lastRow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
    With Sheet2
        For i = 1 To lastRow
            .Range("A" & i).Value = Sheet1.Range("A" & i).Value
            If wb.Range("B" & i).Value <> "" Then
                .Range("B" & i).Value = "-1"
            Else
                .Range("B" & i).Value = "0"
            End If
            .Range("C" & i).Value = Sheet1.Range("B" & i).Value
            If Sheet1.Range("C" & i).Value <> "" Then
                .Range("D" & i).Value = Mid(Sheet1.Range("C" & i).Value, _
                    InStrRev(Sheet1.Range("C" & i).Value, "/") + 1)
                .Range("E" & i).Value = Mid(Sheet1.Range("D" & i).Value, _
                    InStrRev(Sheet1.Range("D" & i).Value, "/") + 1)
            Else
                If Sheet1.Range("D" & i).Value <> "" Then
                    .Range("D" & i).Value = Mid(Sheet1.Range("D" & i).Value, _
                        InStrRev(Sheet1.Range("D" & i).Value, "/") + 1)
                End If
            End If
            Set r = wc.Range("A:A").Find(Sheet1.Range("A" & i).Value)
            If Not r Is Nothing Then
                .Range("F" & i).Value = r.Offset(0, 1).Value
            End If
        Next i
    End With
    
    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\a1.csv", _
        FileFormat:=xlCSV, CreateBackup:=False

End Sub