add additional range to VBA to get unique data

[steve400243]

Hello, I am using this to get unique data from column (J) from Sheet1 to ANALYSIS Tab starting at cell A16. This is working, but I need the VBA to include Unique data from column A from Sheet Tab, to ANALYSIS Tab Starting in cell A40. Thank you for any help provided.

Sub getuniqueS()
   Dim d As Object, c As Variant, i As Long, lr As Long
   Set d = CreateObject("Scripting.Dictionary")
   lr = Cells(Rows.Count, 1).End(xlUp).Row
   c = Sheets("Sheet1").Range("J3:J10000" & lr).Value2
   Sheets("ANALYSIS").Range("A16", Sheets("ANALYSIS").Range("A" & Rows.Count).End(xlUp)).ClearContents
   For i = 1 To UBound(c, 1)
     If c(i, 1) <> "" Then d(c(i, 1)) = Empty
   Next i
   Sheets("ANALYSIS").Range("A16").Resize(d.Count) = Application.Transpose(d.Keys)
End Sub