I'm not a good with macro's but this might help:
If you want always to copy-paste columns B and C into new sheet you can use this:
Sub Copy_BC_columns()
'
'
'
Columns("B:C").Select
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
Columns("B:B").Select
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
And if you want to copy selection and paste into new sheet you can try with this:
Public Sub Copy_selection_at_new_sheet()
Dim rngArea As Range
For Each rngArea In Selection.Areas
With rngArea
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End With
Next rngArea
End Sub
Bookmarks