【マクロ・VBA】空欄セルを別ファイルのシートのセルとマッチング

Sub 別ファイルを開いてマッチング()

'このファイル
Dim wb1 As Workbook
    Set wb1 = ThisWorkbook
Dim ws1 As Worksheet
    Set ws1 = wb1.ActiveSheet
Dim LastRow1 As Long
    LastRow1 = ws1.Cells(Rows.Count, 1).End(xlUp).Row
Dim LastCol1 As Long
    LastCol1 = ws1.Cells(1, Columns.Count).End(xlToLeft).Column

'1つ目のインポートするファイル開く
'Dim FName As String
MsgBox "「対象ファイル」選択"
FName = Application.GetOpenFilename("Microsoft ExcelブックorＣＳＶ,*.*")  ' "\*.*")

If FName <> "False" Then
   Dim wb2 As Workbook
        Set wb2 = Workbooks.Open(FName)
   Dim ws2 As Worksheet
        Set ws2 = wb2.Worksheets(1)
   Dim LastRow2 As Long
        LastRow2 = ws2.Cells(Rows.Count, 1).End(xlUp).Row
   Dim LastCol2 As Long
        LastCol2 = ws2.Cells(1, Columns.Count).End(xlToLeft).Column
Else
    MsgBox "File未選択 "
End
End If
    
Skip:
    
ws1.Activate

Dim i As Long
For i = 2 To ws2.Cells(Rows.Count, 1).End(xlUp).Row
    
    If ws1.Cells(i, 1) = ws2.Cells(i, 1) And ws1.Cells(i, 2) = "" Then
            ws1.Cells(i, 2) = ws2.Cells(i, 2)
    End If
        
Next
    
MsgBox "完了"
End Sub