数据透视表用宏录制，怎样实现原始数据行数变化时，透视表也跟着变化

horizon198

求助大神
用宏录制数据透视表，因为数据行数会更新变化，怎样修改宏里面的固定数字区域，以实现功能。
Sheets("COGS").Select
    Range("A1:D6").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "COGS!R1C1:R46C4", Version:=xlPivotTableVersion15).CreatePivotTable _
        TableDestination:="COGS Pivot!R2C1", TableName:="PivotTable5", _
        DefaultVersion:=xlPivotTableVersion15
    Sheets("COGS Pivot").Select
    Cells(2, 1).Select
    With ActiveSheet.PivotTables("PivotTable5").PivotFields("Product Line")
        .Orientation = xlRowField
        .Position = 1
    End With