質問者が納得１つ目の最後の文字が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～...
質問者が納得ファイル名をA1.txtにしたいというので1ファイルを生成したいのかと思いましたが、
500個ファイルを作りたいなら下の通り。ファイル名は A1 (番号）.txt になります。
htmlファイルを作りたいなら".txt"を ".html"に変えて下さい。
Sub TXT2()
Dim FN As Integer, i As Long, FNN, PS As String
PS = ActiveWorkbook.Path
FN = FreeFile
For i = ...
