Stuck with my Macro

[Loopy86]

Hi everyone

Please help - I am stuck.

I keep debugging, and I cannot see why or how to fix it. Think I am going into tunnel vision now.

I have devised a simple (or so I thought) macro to select and copy data, open a file, paste it and now I want to go back to original sheet so I can delete the info I have copied.
This is where I am debugging. I thought I might have to offset the title row, but I have not been successful.

I have code, shall I paste it?

Thanks

 

[VoG]

Yes, you will need to paste your code.

 

[Loopy86]

The red is where I am having the problem

Thanks for looking

'Move data onto file and filter
ActiveSheet.Range("$A$1:$F$1048576").AutoFilter Field:=1, Criteria1:="K. Askew"
Cells.Select
Selection.Copy
Windows("_KA Template.xlsm").Activate
Sheets("New Enquiry").Select
Range("A1").Select
ActiveSheet.Paste
Windows("Sales Activity Template.xlsm").Activate
Sheets("Sheet1").Select

 

[VoG]

If you avoid selecting/activating you should avoid that problem

With Range("$A$1:$F$1048576")
    .AutoFilter Field:=1, Criteria1:="K. Askew"
    .SpecialCells(xlCellTypeVisible).Copy Destination:=Workbooks("_KA Template.xlsm").Sheets("New Enquiry").Range("A1")
End With

 

[Loopy86]

Oh!!

I had no idea you could do that.

Thanks very much VoG

Loopy86

 

[Loopy86]

Hi, i'm back!!

I have a run-time error:
"Unable to get the specialcells property of the range class

Sorry, I feel like a nuisance

 

[VoG]

Maybe this instead

Columns("A:F").AutoFilter Field:=1, Criteria1:="K. Askew"
ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible).Copy Destination:=Workbooks("_KA Template.xlsm").Sheets("New Enquiry").Range("A1")