指定ワークシートのRow_Del行の1〜5のエリアの値のみをクリアする
With Range_Del.Worksheet .Range(.Cells(Row_Del, 1), .Cells(Row_Del, 5)).ClearContents End With
オートフィルタがかかっている場合は以下で外してから、
クリアすると非表示領域の値などもきれいに消せる。
IF Range_Del.Worksheet.FilterMode = True Then Range_Del.Worksheet.show End IF