VBAのソースコードを教えて下さい！

顧客管理をしたく連絡をとったらクリックするだけで完結するものを作りたいです。

「内容」
B5からD5に同シートのI列のデータを値貼付けしたいです。

シート内容（例）
I5に株式会社〇〇
I6に〇〇様
I7に今日の日付

B5に会社名
C5に担当者
D5に当日の日付

※I列に表示させるデータは毎回変更されます。
※別シートにて顧客一覧があり、H列にてVlookupにて算出してます。
※B.C.Dの一番下に追加していきたいです。

補足が必要であればご連絡ください。
ご回答お待ちしてます。

No.1 回答者： fujillin 回答日時： 2021/05/06 21:45

こんばんは

意味がよくわからないけれど・・・
こういうこと？？

Sub sample_12345537()
Cells(Application.Max(Cells(Rows.Count, 4).End(xlUp).Row + 1, 5), 2) _
.Resize(, 3).Value = WorksheetFunction.Transpose(Range("I5:I7").Value)
End Sub