Vba copy area size change-CodePudding

Logwb. Worksheet (1). Usedrange. Copy
But I just want to copy does not include the previous 3 rows so use content, ask how to write

CodePudding user response:

 Dim countr As Long, countc As Long 
With Logwb. Worksheets (1) 
Countr=. UsedRange. Rows. Count 
Countc=. UsedRange. Columns. The Count 
. UsedRange. Offset (3). The Resize (countr - 3, countc). Copy 
End With

CodePudding user response:

The lazy point method and going to Copy the three lines below the blank line

 Logwb. Worksheets (1) UsedRange. Offset (3) Copy