sample

・リセットする

Sub ResetAndProcess()
    Dim lastRow As Long
    lastRow = Sheets("直近TODOシート").Cells(Rows.Count, "A").End(xlUp).Row ' A列の最終行を取得
    
    If lastRow < 3 Then ' 行が2行以下の場合
        MsgBox "リセット対象がありません。", vbInformation ' ダイアログを表示
    Else
        With Sheets("直近TODOシート")
            .Range("A" & lastRow - 1 & ":H" & lastRow).Select ' 最終行から2行目までのA列からH列までの範囲を選択
        End With
        Selection.Value = "" ' 選択範囲の値をクリア
        ' 後続処理を記述する
        ' ...
    End If
    
    ' 後続処理を記述する
    ' ...
End Sub