Hi,
I need help from Macto Guru. Actually, I created one macro but that macro doesn't paste data as a value. So here is the code and eagarly waiting your help.
I need help from Macto Guru. Actually, I created one macro but that macro doesn't paste data as a value. So here is the code and eagarly waiting your help.
Code:
Sub foo()
Dim ws As Worksheet
Dim LastRow As Range
For Each ws In ActiveWorkbook.Worksheets
If ws.Name <> "IMPORT" And ws.Name <> "2007" And ws.Name <> "SKU_LIST" And ws.Name <> "AZTEC_Data" And ws.Name <> "National Customer" And ws.Name <> "Setup" And ws.Name <> "His_UT_Mth" And ws.Name <> "Legends" And ws.Name <> "Summary" Then
'w Key
Set LastRow = Sheets("IMPORT").Cells(Rows.Count, "A").End(xlUp)
ws.Range("DM49:DM51").Copy LastRow.Offset(1)
End If
Next ws
End Sub