Runtime error '1004': Paste special method of range class error.

Do you mean like this?

Sub Macro1()
'
' Macro1 Macro
' averages
'
' Keyboard Shortcut: Ctrl+m
'
ActiveSheet.AutoFilterMode = False

Range("F4:F16").ClearContents

ActiveSheet.Range("$A$1:$E$279").AutoFilter Field:=1, Criteria1:=RGB(198, _
239, 206), Operator:=xlFilterCellColor

Range("A8:A279").SpecialCells(xlCellTypeVisible).Copy

Range("F4").PasteSpecial xlPasteAll

ActiveSheet.AutoFilterMode = False
Application.CutCopyMode = False

End Sub

Yes, like that. Sorry. It was the second bug I had in there and for some reason it initially came up like I originally posted. I ran it a second time and it came up as you posted stnkynts.

The code you submitted in your most recent post is just your initial post again. I took out the ActiveSheet.Paste that you are referring to. I am confused at this point as to what you are doing.

I am SO sorry stnkynts. I was in a hurry and had to leave. I re-ran the macro, and when I viewed it again in debug, the window didn't show the beginning of the code. And I didn't scroll to the top, so I thought it was showing me a different code than I initially pasted. I'm not used to reading code closely and thought what I cut and pasted was different. By the time I realized I posted the same code, I had to go out somewhere. I'm sorry for confusing you as the re-paste was obviously my fault.

ANYWAY, what I am TRYING to do is to create a macro that filters out all the green highlighted data from column "A" in the attached excel sheet, and paste it into F4-F15. I thought I did it right as my macro seemed to execute everything except the pasting part at the end. That's when it sent me the error code. Do I need in my macro to separately paste formulas and THEN paste values as my last steps before I stopping recording? Or do I use some other paste function at the end?

If you could list each step I need to to create the macro to accomplish the above task, that might be easiest. My knowledge of Excel is only intro level as that's the only course I've taken on it. I thought I'd try doing a macro despite my inexperience, but obviously forgot to do something when creating it. And I have almost no idea what I'm looking at in debug screen to fix this problem there.

And again, sorry for confusing you. And thanks for your assistance.

Thanks for the info alansidman. I'll look into it.

I don't get the error when I test on your submitted sheet.
The code copies the green data in column A to column F as you specified.

I don't know what is going wrong on your end.

stnkynts, did you download your version of Microsoft Office? I bought mine on disc in a store. Maybe my copy's defective and yours isn't.

This is exactly how I tried to create my macro:

Selected "View tab"
Selected "Record Macro" tab (use relative references tab not highlighted)
Macro name: Macro1
Short cut Key: Ctrl + "m"
Store macro in: this workbook
Select f4-f16
right click and select clear contents
click on filter tab in column "A"
select filter by color
select green
select "a8-a239"
right click and select "copy"
click on filter tab in column "A"
select clear filter from "column A"
select f4-f16
right click and select "paste"
click on stop button to stop recording macro.

Then to run macro I:

view macros
select macro1
click on "run"

Then it executes everything I did in my macro EXCEPT "paste". That's when I get the run-time error code '1004' paste special method of worksheet class failed.

It seems to me I did everything right but it didn't work. And when I copied and pasted the code you have above in my debug, it works for columns above but wont work if I try the same thing for other columns when I create a macro for them to do the same thing. Like for example with column's "G" or "H".

So I don't know what's wrong too.

Maybe my copy's defective and yours isn't.

Your copy is just fine.

Selected "Record Macro" tab

You no longer need to record a macro, I am giving you the entire code. Open up the Visual Basic Editor. Right click on "ThisWorkbook" -> Insert -> Module. Paste the code below into the new module. Back in Excel, on the ribbon under the Developer Tab, click macros then run the macro "Create_Data". Should do what you are asking

Sub Create_Data()
Dim ws As Worksheet:    Set ws = Sheets("Sheet1") 'you may need to change this to match your sheet
Dim LR As Long

'//Note:  In your example column F appeared to be green values in column A.  G = column E, H = A, I = D.


'// establish last used row and turn off screen updating
Application.ScreenUpdating = False
LR = ws.Range("A" & Rows.Count).End(xlUp).Row

'// clear existing data in columns F:I
ws.Range("F4:I" & LR).ClearContents

'// autofilter by colors according to example spreasheet provided.  User defined colors appear to be Green: RGB(198, 239, 206) & Red: RGB(255, 199, 206)
With ws
    .AutoFilterMode = False
    .Range("A1:A" & LR).AutoFilter 1, RGB(198, 239, 206), xlFilterCellColor
    .AutoFilter.Range.Offset(1, 0).SpecialCells(xlCellTypeVisible).Copy .Range("F4")
    .AutoFilterMode = False
    .Range("E1:E" & LR).AutoFilter 1, RGB(198, 239, 206), xlFilterCellColor
    .AutoFilter.Range.Offset(1, 0).SpecialCells(xlCellTypeVisible).Copy .Range("G4")
    .AutoFilterMode = False
    .Range("A1:A" & LR).AutoFilter 1, RGB(255, 199, 206), xlFilterCellColor
    .AutoFilter.Range.Offset(1, 0).SpecialCells(xlCellTypeVisible).Copy .Range("H4")
    .AutoFilterMode = False
    .Range("D1:D" & LR).AutoFilter 1, RGB(255, 199, 206), xlFilterCellColor
    .AutoFilter.Range.Offset(1, 0).SpecialCells(xlCellTypeVisible).Copy .Range("I4")
    .AutoFilterMode = False
End With
    
'// turn on screen updating
Application.ScreenUpdating = True

End Sub

Thanks for the fix stnkynts.