VBA paste values issue

[pook_666]

Hi there,

I have the below, which is part of a longer VBA string.

I am wanting to paste values onto Sheets(MyCell.Value).Range("A6") but can't seem to figure it out...any help much appreciated!

            With Sheets("Data").Range("B1:B" & Sheets("Data").Range("B" & Rows.Count).End(xlUp).Row)
                .AutoFilter 1, MyCell.Value
                On Error Resume Next
                .Offset(0).Resize(.Rows.Count - 0, 13).SpecialCells(12).Copy Sheets(MyCell.Value).Range("A6")
                On Error GoTo 0
                .AutoFilter
            End With

 

[MARK858]

Maybe

    With Sheets("Data").Range("B1:B" & Sheets("Data").Range("B" & Rows.Count).End(xlUp).Row)
        .AutoFilter 1, MyCell.Value
        On Error Resume Next
        .Resize(.Rows.Count, 13).SpecialCells(12).Copy
        Sheets(MyCell.Value).Range("A6").PasteSpecial xlValues
        On Error GoTo 0
        .AutoFilter
    End With

Although the SpecialCells(12) could also go

 

[pook_666]

annoying when it's that simple!! thank you!!

 

[MARK858]

You're welcome