Excel VBA 各行に対して末尾に「_H,_L」を追加したい

Question

前提・実現したいこと

vba初心者です。
Excel vbaで各行に対して、下図のように、それぞれ_H,_Lを追加するvbaを作りたいです。
For文やif文を組み合わせて実装できると思うのですが、どのように作ればよいかわかりません。
実装方法を教えてください。

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

excel2019を使用

Answer 1

自己解決しました。

• ２つの行変数row1,row2を定義して使用すること、
• 空欄部分があってもプログラムを終了しないように
  "Cells(Rows.Count, 1).End(xlUp).row"

を使用することで解決しました。

Public Sub uRunWork04()
  Dim row1 As Integer
  Dim row2 As Integer
  Dim row1_max As Integer
  Dim s As String
  
  Dim ap As Excel.Application
  Dim wb As Workbook
  Dim ws As Worksheet
  Set ap = GetObject(, "Excel.Application")
  Set wb = ap.ThisWorkbook
  Set ws = wb.Worksheets("_work04")

  ws.Activate
　'最終行を取得
  row1_max = Cells(Rows.Count, 1).End(xlUp).row
  
  'D:F列クリア
  ws.Range("D1:F2000").Select
  Selection.ClearContents
  ws.Range("A1").Select
  
  row2 = 1
  For row1 = 1 To row1_max
  
    s = ws.Cells(row1, 3)
    If s = "" Then
      row2 = row2 + 2
    Else
      ws.Cells(row2, 7).Value = s + "_H"
      row2 = row2 + 1
      ws.Cells(row2, 7).Value = s + "_L"
      row2 = row2 + 1
    End If
  
  Next

  Set ws = Nothing
  Set wb = Nothing
  Set ap = Nothing
End Sub