105

view

１つ目の最後の文字がBの場合
Sub Macro1()
Dim I As Long '変数を定義しただけです
For I = 1 To 500 '1～500行まで繰り返す
If Right(Cells(I, 1).Value, 1) = "B" Then 'A列のI行の値の最後の1文字が"B"ならば以下を実行、違えば次の行へ移動する
Range(Cells(I, "A"), Cells(I, "Z")).Cut '対象の行のA～Z列を切取
Range("A510").Insert Shift:=xlDown '切り取った範囲を挿入
Exit For '１回のみ実行ならこのステートメントで終了にさせる。500行まで全て同じ検索と処置を繰り返すならこのステートメントを記述しない。
End If
Next I
End Sub

となります。
A510に張り付けて元の行を削除するので、A509に値が入るのと同じになります。

２つ目の数字の8の場合に処理するのは
If Right(Cells(I, 1).Value, 1) = "B" Then を単純に
If Cells(I, 1).Value = 8 Then とし、
張り付けるところがA550なので Range("A510").Insert Shift:=xlDown を
Range("A550").Insert Shift:=xlDown とするだけです。

マクロ（VBA)を覚え始めの時にはマクロの記録機能を利用して、やりたいことを実際に手で行うとVBAとして記録されますので、これを見ると覚えられると思います。
但し、マクロの記録だと、画面のスクロール等も記録されるので、不要なものは削除すると良いと思います。

わかりにくい説明で申し訳ありません。