scrupul0us
Well-known Member
- Joined
- Sep 7, 2004
- Messages
- 641
How would i chagne this:
to list my values across row1 instead of down column b?
Code:
Sub Unique_DEPT()
Dim Sh1 As Worksheet
Dim Rng As Range
Dim Sh2 As Worksheet
Set Sh1 = Worksheets("DATA")
Set Rng = Sh1.Range("L2:L" & Sh1.Range("A65536").End(xlUp).Row)
Set Sh2 = Worksheets("RESULTS")
Rng.Cells(1, 1).Copy Sh2.Cells(1, 2)
Rng.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sh2.Range("B1"), Unique:=True
End Sub
to list my values across row1 instead of down column b?