質問: エクセルのマクロについて 当方マクロ初心者でございます。
回答: お示しのコードを整理して、要求を加味すると↓になりますね。 Sub サンプル() With Worksheets("入力") .Range("E48:G48").Copy Worksheets("集計").Range("T" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues .Copy After:=Sheets(2) With ActiveSheet .Range("B3").Value = "514" .Name = "514" End With .Range("B3,D6:D36,H6:H36,A38:D41,H38:H41,A44:D47").ClearContents End With End Sub このままだと、2回目に実行するとシート名が重複します。 解決策は考えてください。