VBA01 Copy Resize Variably Sized Ranges
Copy Resize Variably Sized Ranges
Public Sub CopyResizeVariablySizedRanges()
'COPY RANGE FOR VARIABLE SIZED RANGES
Range("A4").CurrentRegion.Copy Range("J4")
'OR FIXED RANGE
Range("A4:E10").Copy Range("J4")
'PASTESPECIAL METHOD TO USE EXCELS PASTESPECIAL OPTIONS
Range("A4").CurrentRegion.Copy
Range("J20").PasteSpecial xlPasteValuesAndNumberFormats
'TO ADD MORE PASTE SPECIAL OPTION TO ADD A NEW LINE
Range("J20").PasteSpecial xlPasteComments
'USE THE RESIZE PROPERTY TO RETURN A CHANGED RANGE
Range("A4").CurrentRegion.Offset(1, 0).Resize(Range("A4").CurrentRegion.Rows.Count - 1).Copy Range("A20")
End Sub
Comments
Post a Comment