Sub Macro1()
    Call PutData(1)
    Range("A1").Delete  ' P폜FɌJオ
    Call PutData(5)
    Range("A5").Delete xlShiftToLeft  ' P폜FVtgw
    Call PutData(9)
    Range("A9:A10").Delete  ' c폜FɃVtg
    Call PutData(13)
    Range("A13:B13").Delete  ' 폜FɌJオ
End Sub

Sub PutData(i As Integer)
    Range(Cells(i,1), Cells(i,3)).Value = Array("P","Q","R")
    Range(Cells(i+1,1), Cells(i+1,3)).Value = Array("S","T","U")
    Range(Cells(i+2,1), Cells(i+2,3)).Value = Array("V","W","X")
End Sub
