Sub Macro1()
Range("E30:AE30").Select
Selection.ClearContents
Range("E15:AE15").Select
Selection.Copy
Range("E30:AE30").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Sheets("Sheet2").Select
Range("E30:AE30").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("E15:AE15").Select
Selection.Copy
Range("E30:AE30").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
End Sub


"Steph" wrote:

Hi all. How can I have excel clear contents in the range E30:AE30, then
copy E15:AE15 and paste special values in E30:AE30 in two specific sheets in
a workbook (sheet1, sheet2)? The clearing, copying and pasting I can get
through the recorder, but how can I get the code to loop through the 2
sheets? Thanks!