値の削除

Sub ClearDataAndFormatting()
Dim ws As Worksheet
Dim LastRow As Long

' Excelシートの設定
Set ws = ThisWorkbook.Sheets("メール送付_一括送付")

' 最終行を取得
LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

' E列、F列、G列の既存データをクリアし、セルの色塗りを解除
With ws
.Range(.Cells(2, "E"), .Cells(LastRow, "G")).ClearContents
.Range(.Cells(2, "E"), .Cells(LastRow, "G")).Interior.ColorIndex = 0 ' セルの色塗りを解除
End With
End Sub