Snasui Excel Forum

Code: Select all

Sub Macro8()
    Range("C3:I162").Select
    Selection.Copy
    Sheets("Sheet2").Select
    Range("C3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("C3").Select
End Sub

Code: Select all

Sub Macro8()
'    Range("C3:I162").Select
'    Selection.Copy
'    Sheets("Sheet2").Select
'    Range("C3").Select
'    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
'        :=False, Transpose:=False
'    Range("C3").Select
    Worksheets("Sheet2").Range("c3:i162").Value = Worksheets("Sheet1").Range("c3:i162").Value
End Sub