Buenas quisiera crear una macro en excel de tomar distintos rangos almacenarlos en un .scr ...carácter u

buenas quisiera crear una macro

en excel de tomar distintos rangos (a4:a15), (b4:b18)

almacenarlos en orden consecutivo en un .scr

....carácter u

llevo esto

Sub EXPORTAR()
'
' Macro1 Macro
'EP
' Acceso directo: Ctrl+Mayús+Z
'
'Sub exportar()
'rango = Selection.Address
'ruta = ActiveWorkbook.Path
'Application.ScreenUpdating = False
'For Each columna In Selection.Columns
' columna = columna.Column
' Range(Cells(4, columna), Cells(ActiveSheet.UsedRange.Rows.Count, columna)).Copy
' NOMBRE = Cells(3, columna).Value
' Workbooks.Add
' Range("a1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
' ActiveWorkbook.SaveAs Filename:=ruta & "\" & NOMBRE & ".scr", FileFormat:=xlCSVMSDOS, CreateBackup:=False
' ActiveWindow.Close True
'Next columna
'Application.ScreenUpdating = True
'End Sub
Selection.Copy
Shell "notepad.exe " & archivo, vbNormalFocus
'AppActivate ("bloc de notas")
SendKeys "%", True
SendKeys "EP", True

End Sub