サンプルコードをアレンジしたい

b2:g102の範囲で、c3:c7、d9:d12、e16:e19→同じ行にある氏名、性別、出身地をi2:k102に貼り付けたいのです。動画でサンプルコードがあるのですが、sampleコードを自分流にアレンジしてアウトプットしたいのですが、b2:g102が全選択され、どうも、上手く行きません、大変、お手数ですが、どなたか、ご存じの方、教えてください。多分、最終行の取得が良くないと思います。

ここに実現したいことを箇条書きで書いてください。

前提

ここに質問の内容を詳しく書いてください。
（例）
TypeScriptで●●なシステムを作っています。
■■な機能を実装中に以下のエラーメッセージが発生しました。

発生している問題・エラーメッセージ

エラーメッセージ

該当のソースコード

vba

1Sub sample()2 3　For Each rng In Selection.Rows 4　　If f Then5　　　Range("c" & rng.Row & ",e" & rng.Row & ",g" & rng.Row).Select6　　　f = False7　　Else8　　　Application.Union(Selection, _9　　　Range("c" & rng.Row & ",e" & rng.Row & ",g" & rng.Row)).Select10　　End If11　Next rng 12 13　Selection.Copy 14End Sub15　　　　　　↓ 16Sub sampleアレンジ()17　　Dim rng As Range, lastrow As Long, f As Boolean: f = True18　　lastrow = Cells(Rows.Count, 2).End(xlUp).Row 19 20　　For Each rng In Range(("a3:g" & lastrow)) 21 22　　If f Then23　　　Range("c" & rng.Row & ",e" & rng.Row & ",g" & rng.Row).Select 24　　　f = False25　　Else26　　　Application.Union(Range("a3:g" & lastrow), _27　　　Range("c" & rng.Row & ",e" & rng.Row & ",g" & rng.Row)).Select28　　End If29　　Next rng 30 31　　Selection.Copy 32End Sub

ここに問題に対して試したことを記載してください。
VBA 複数行 最終行 取得 でネット検索したが、なかなか上手く行かない

補足情報（FW/ツールのバージョンなど）

offiec2010
ここにより詳細な情報を記載してください。