Copy Visible Range To A New Workbook
Copies only the visible cells in a selected range to a new workbook, a A1
'==================================================================================================
' ## Copy range to a new workbook, only copies the visible cells in the selected range
'==================================================================================================
Sub RangeToNewWorkbook()
'// Vars
Dim shtNew As Worksheet
Dim rngSelection As Range
'// Optimise
Application.ScreenUpdating = False
'// Set the selected range
Set rngSelection = Application.Selection.SpecialCells(xlCellTypeVisible)
'// Create new workbook and set the new sheet
Application.Workbooks.Add
Set shtNew = Application.ActiveSheet
'// Copy the selected range and autofit columns
rngSelection.Copy
shtNew.Range("A1").PasteSpecial Paste:=xlPasteColumnWidths
rngSelection.Copy Destination:=shtNew.Range("A1")
shtNew.Range("A1").Select
'// Optimise
Application.ScreenUpdating = True
End Sub