excel - Excel VBA で .Rows を使用する

Question

コピー/貼り付けをきれいにするのに問題があります。現在、私はこれを持っています：

If distanceValue <= distanceParameter Then
    sh2.Rows(i).Copy _
    sh3.Rows(i).Offset(0, 1)
End If

sh2 と sh3 は適切に定義されており、for ループ内にあります。それは問題ではありません。.Rows でこれを行う方法はありますか?

目標は、条件を満たしている行を別のシートにコピーするが、列 A を空白のままにすることです。クリーンなソリューション (これが間違っていることはわかっています) に関するフィードバックは大歓迎です。