Writing elements of array to a range

Hello everyone
I have this code and need to get the results in a range starting in H3

Sub CheckForDuplicates()
    With ThisWorkbook.Worksheets("sheet1")
        
        Dim dict As Object
        Set dict = CreateObject("Scripting.Dictionary")
                
        Dim iRow As Long
        For iRow = 1 To 100
            If Not dict.exists(.Cells(iRow, 1).Value) Then
                dict.Add .Cells(iRow, 1).Value, 1
            End If
        Next iRow
                
        Dim element As Variant
        For Each element In dict.keys
            Debug.Print element
        Next
                
        Set dict = Nothing
    End With
End Sub

i appreciate your help

Mr. nilem
Thanks for offering help but it doesn't work with this change

Mr. Jindon
Great and simple and very effective .. Thanks for help