Skip to content

Instantly share code, notes, and snippets.

@Se7enSquared

Se7enSquared/copyusedrange.vbs

Last active December 22, 2021 23:29
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save Se7enSquared/f453429bc2c943f75c702bd93835f777 to your computer and use it in GitHub Desktop.
Save Se7enSquared/f453429bc2c943f75c702bd93835f777 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
copyusedrange.vbs
Public Sub CopyUsedRangeFromExternalWBToTable(source_ws_number As Long, wb As Workbook, dest_sheet As String, dest_range As String)
wb.Worksheets(source_ws_number).UsedRange.Copy
ThisWorkbook.Worksheets(dest_sheet).Range(dest_range).PasteSpecial Paste:=xlPasteValues
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment