VBA Unique value Copy/Paste - Making it exclude blanks

[EdwardSurrey]

Hello

I have the following VBA code which moves unique values from a range to another worksheet.

The only issue is that does not exclude blanks - so it always copies one. Is there any modification I can make to skip the blanks?

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 = Worksheets("Tracker (2022)").Range("B7:B893" & lr)
For i = 1 To UBound(c, 1)
d(c(i, 1)) = 1
Next i
Worksheets("Win Loss Report").Range("B16").Resize(d.Count) = Application.Transpose(d.keys)
End Sub

Thanks!

 

[Fluff]

Try it like

lr = Worksheets("Tracker (2022)").Cells(Rows.Count, 1).End(xlUp).Row
c = Worksheets("Tracker (2022)").Range("B7:B" & lr)

 

[EdwardSurrey]

Try it like

lr = Worksheets("Tracker (2022)").Cells(Rows.Count, 1).End(xlUp).Row
c = Worksheets("Tracker (2022)").Range("B7:B" & lr)

Thanks but this isn't working. Cell B25 is the first blank in the tracker sheet, and it's copying that to the Win Loss Report tab.

 

[Fluff]

Are you sure it's totally empty?

 

[EdwardSurrey]

Are you sure it's totally empty?

Yep, it wasn't totally empty. My bad Thank you for your very fast help with this. I'm logging your answer as the solution.

 

[Fluff]

Glad to help & thanks for the feedback.