Dim Myrang As String
Sub ki153a()
ki153d
    Myrang = "A1:D30"
    ki153
End Sub
Sub ki153b()
ki153d
    Myrang = "A1:D20"
    ki153
End Sub
Sub ki153c()
ki153d
    Myrang = "A1:D10"
    ki153
End Sub

Sub ki153()
Sheets("Sheet1").Select
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, _
    SourceData:=Myrang).CreatePivotTable _
    TableDestination:=Range("G2"), TableName:="���ޯ�ð���1"
            
    ActiveSheet.PivotTables("���ޯ�ð���1").SmallGrid = False
    With ActiveSheet.PivotTables("���ޯ�ð���1").PivotFields("���t")
        .Orientation = xlRowField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("���ޯ�ð���1").PivotFields("���i")
        .Orientation = xlColumnField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("���ޯ�ð���1").PivotFields("����")
        .Orientation = xlDataField
        .Position = 1
    End With
    Application.CommandBars("PivotTable").Visible = False
End Sub