"X:\デスクトップ\keep\2023 外国為替.xlsm"のシート名「為替一覧」からの値を、

"X:\デスクトップ\keep\2023 株価取得.xlsm"シート名「為替」に転記したい。

下記の参考のコードに上記の内容を反映するにはどうすればいいかご指導いただけないでしょうか。

参考
Sub 外国為替転記()
	Dim i As Integer
  
	For i = 4 To Sheets("為替").Range("A302").End(xlUp).Row + 1
      	   If Sheets("為替").Range("A" & i).Value = "" Then
 
             With Sheets("為替")
　　　　　　　  .Range("A" & i).Value = Date
　　　　　　    .Range("B" & i).Value = Sheets("為替一覧").Range("C2").Value
                 .Range("C" & i).Value = Sheets("為替一覧").Range("C3").Value
                 .Range("D" & i).Value = Sheets("為替一覧").Range("C4").Value
                 .Range("E" & i).Value = Sheets("為替一覧").Range("C5").Value
                 .Range("F" & i).Value = Sheets("為替一覧").Range("C6").Value
                 .Range("G" & i).Value = Sheets("為替一覧").Range("C7").Value
                 .Range("H" & i).Value = Sheets("為替一覧").Range("C8").Value
                 .Range("I" & i).Value = Sheets("為替一覧").Range("C9").Value
                
             End With
               MsgBox "登録が完了しました。"
        Exit For
           End If
  Next i
End Sub

＞シート名「為替一覧」からの値を→「為替」に転記したい。

どんな条件に合致したら、「為替一覧」のどの範囲の値を「為替」のどの範囲に転記するのか不明瞭です。

「参考」はあくまで参考ですから、それを見て正しい仕様を特定することは第三者には無理です。
chabinさんの求める仕様は、自分の言葉で説明してください。

私には仕様が読み取れません。

こんな事なのかなぁ・・　※ダメでも私はここまでとします。
　↓

Sub 外国為替転記()
    Dim wsList As Worksheet
    Dim wsStkFx As Worksheet
    Dim rowToWrite As Long
    
    Set wsList = Workbooks("2023 外国為替.xlsm").Sheets("為替一覧")
    Set wsStkFx = Workbooks("2023 株価取得.xlsm").Sheets("為替")
    
    rowToWrite = Application.Max(4, wsStkFx.Range("A999").End(xlUp).Row + 1)
    
    If rowToWrite <= 302 Then
        wsStkFx.Range("A" & rowToWrite).Value = Date
        wsStkFx.Rows(rowToWrite).Range("B1:I1") = Application.Transpose(wsList.Range("C2:C9").Value)
        MsgBox "登録が完了しました。"
    Else
        MsgBox "転記範囲が一杯です。"
    End If
End Sub


この記事にはVBAのコードが含まれています。

緑の太文字→注釈
茶色の太文字→条件分岐
赤の太文字→ループ
青の太文字→その他