VBA pivot table create problem

[Palucci]

Hi, I have a problem, I would like to create a pivot table in sheet papers, from the selected data range. However, I get an error:

Object dosent support this property method

This is my code i know that its wrong but i dont know how to write correctly , maybe can someone help ?

wbMe.Sheets("papiery").Range ("D1:L1")
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "papiery!R1C4:R30C12", Version:=6).CreatePivotTable TableDestination:= _
        "papiery!R28C16", TableName:="Tabela przestawna3", DefaultVersion:=6
wbMe.Sheets("papiery").Select
    Cells(28, 16).Select
    With ActiveSheet.PivotTables("Tabela przestawna3").PivotFields("RES_MAT")
        .Orientation = xlRowField
        .Position = 1
    End With
    ActiveSheet.PivotTables("Tabela przestawna3").AddDataField ActiveSheet. _
        PivotTables("Tabela przestawna3").PivotFields("WYCENA_PLN"), _
        "Suma z WYCENA_PLN", xlSum

 

[Palucci]

Oh i changed to : Post is resolved

wbMe.Sheets("papiery").Range("D1:L1" & Columns.Count).End(xlDown).Select .