Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Select current range and copy

Sub SelCurRegCopy()     Selection.CurrentRegion.Select     Selection.Copy     Range("A17").Select ' Substitute your range here     ActiveSheet.Paste     Application.CutCopyMode = False End Sub