DeanP
11-25-2018, 02:42 PM
I am attempting to copy- paste special- values & formats for all the data EXCEPT row 1 (headers) from one sheet to another. After researching I am no wiser as to how to:
(a) exclude row 1 from the range
(b) use a dynamic range code for the rest of the data (it changes from month to month)
So far I have this:
Sub CopySheet()
Dim SourceRange As Range, DestRange As Range
Dim DestSheet As Worksheet, Lr As Long
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
Set SourceRange = Sheets("NewData").Range(" ")
Set DestSheet = Sheets("2018 Details")
Lr = LastRow(DestSheet)
Set DestRange = DestSheet.Range("A" & Lr + 1)
SourceRange.Copy
DestRange.PasteSpecial _
Paste:=xlPasteValuesAndNumberFormats, _
operation:=xlPasteSpecialOperationNone, _
skipblanks:=False, _
Transpose:=False
Application.CutCopyMode = False
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
Any help much appreciated.
(a) exclude row 1 from the range
(b) use a dynamic range code for the rest of the data (it changes from month to month)
So far I have this:
Sub CopySheet()
Dim SourceRange As Range, DestRange As Range
Dim DestSheet As Worksheet, Lr As Long
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
Set SourceRange = Sheets("NewData").Range(" ")
Set DestSheet = Sheets("2018 Details")
Lr = LastRow(DestSheet)
Set DestRange = DestSheet.Range("A" & Lr + 1)
SourceRange.Copy
DestRange.PasteSpecial _
Paste:=xlPasteValuesAndNumberFormats, _
operation:=xlPasteSpecialOperationNone, _
skipblanks:=False, _
Transpose:=False
Application.CutCopyMode = False
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
Any help much appreciated.