空白のセルの3個右となりのセルから転記

Sub 完全一致転記()

    'カウントアップ変数
    Dim i As Long
    
    '最終行取得用
    Dim 最終行 As Long
     
      '最終行はA列
      最終行 = Cells(Rows.Count, 1).End(xlUp).Row
        
            For i = 2 To 最終行
   
                    If Cells(i, 3) = "" Then

                         Cells(i, 3) = Cells(i, 7)

                    End If

            Next i
    
End Sub