Macro to copy/paste in new location from a filtered list?

[sabbathstevie]

Morning all,

Can anyone help me with this one:

I need a macro to look at a list (which has been previosly filtered by the same macro) and copy certain columns in that list to be pasted into another workbook. The problem is, the length of the list will change frequently depending on the filter criteria. I am currently a "macro recorder", so knowledge of code is limited - I'll probably record a macro copying just the absolute cells and then edit it with any code suggestions made.

Many thanks,
Stevie

 

[ravishankar]

Hi
assuming you have filtered your data, try the following codes. change the column alphabets to be copied, destination book name and sheetname to your requirements.

Sub stevie()
Dim a As Long, x As Long
Dim b As String
x = Cells(Rows.Count, 1).End(xlUp).Row
    For a = 1 To 6
    b = Choose(a, "A", "C", "E", "F", "T", "P")
    Range(b & 2 & ":" & b & x).Copy
    Workbooks("MASTER.xls").Worksheets("2010").Range(Chr(H + 64) & 2).PasteSpecial
    Next a
MsgBox "Complete"
End Sub

Ravi