Macro : Insert Data-Export Only In 1 Sheet With Cell Down

[muhammad susanto]

hi all..
the following macro code working well for insert data into multiple sheet.
i want to modify how the code work inserted data only into 1 sheet
with targe/destination cell in F16 till F21, cell F25 till F30, cell F34 till F39..etc...
here the code :

Sub PopulateMacro()

    Dim cell As Range
    Dim i As Long
   
    Application.ScreenUpdating = False
   
    For Each cell In Sheets(1).Range("A1:A40")
        i = cell.Row + 1
        Sheets(i).Range([B]"H13")[/B] = cell.Value
    Next cell
   
    Application.ScreenUpdating = True
   
End Sub

someone would help me, thank in advance..
.sst