Gem aktivt ark (fane) som ny Excel fil, kun udvalgte kolonner

Kære Eksperter

Jeg arbejder i Excel 2010

Jeg har lavet noget kode som gemmer et valgt ark (fane), som en ny Excel fil. Filen jeg gemmer fra er en xlsm fil. Nedenstående kode virker fuldstændigt efter hensigten:

Sub GemValgtArk()

Dim fd As FileDialog
Dim strFileName As String
Set fd = Application.FileDialog(msoFileDialogSaveAs)
strFileName = ActiveSheet.Name & ".xlsx"

With fd
.InitialFileName = strFileName
.InitialView = msoFileDialogViewDetails
.Title = "Gå til den placering hvor du vil gemme filen"

If .Show = -1 Then
ActiveSheet.Copy

Application.ScreenUpdating = False
Application.DisplayAlerts = False

ActiveWorkbook.SaveAs Filename:=strFileName
ActiveWindow.Close

End If

End With

Set fd = Nothing

Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub

Problem

Jeg ville gerne have koden til at gemme det valgte ark (fane), men kun med de data der er i kolonne A, og kolonne B. Er der nogen som har et bud på hvordan dette kan sættes ind i ovenstående kode, eller skal det gøres en helt anden måde?

På forhånd tak for hjælpen.

Hilsen
Anders.