Paste selection minus the first row....
Hi RompStar,
I am not sure what your code is doing.
However, as example of a method of
returning a range without its header row,
try something like
'=========
Public Sub Tester()
Dim Rng As Range
Dim Rng2 As Range
Set Rng = Range("A1:D10")
With Rng
Set Rng2 = .Offset(1).Resize(.Rows.Count - 1)
End With
MsgBox Rng2.Address(0, 0)
End Sub
'<<=========
---
Regards.
Norman
"RompStar" wrote in message
...
Hi there,
I have code that copies from a sheet to a new sheet in a different
workbook. It's doing appends onto the same sheet. For the first
paste I want to paste everything, but for the second paste, I want to
paste everything minus the first row, which is a header row. In the
Else how do I tell VBA to ActiveSheet.Paste (-1) ????
This If-Then-Else
If lastrow2 = 1 Then
ActiveSheet.Paste
Else
real = lastrow2 + 1
Range("A" & real).Select
ActiveSheet.Paste
End If
Thanks for the help.
|