Continuation on my previous post

This copies down the list, but problem is, the range is not defined and if I define the range, I caot paste from clipboard and copy new stuff into the excel due to the box thingy >.<

Sub Macro4()

Dim doctor As String
Dim a As Integer
Dim obj As New MSForms.DataObject
ActiveCell.Offset(1, 0).Select
doctor = ActiveCell.Value & vbNewLine & "T" & vbNewLine & "T" & vbNewLine & "VIEW" & vbNewLine
obj.SetText doctor
obj.PutInClipboard
End Sub

Remove blank spaces, because the other macros don't work without doing so. Nothing needs to change here unless it will be beneficial to the rest of the code

Sub Button3_Click()
Dim r As Range, rC As Range
Dim v As Variant
Dim g As Range
'Remove Blank Cells
Set g = Range("C2:C100000").SpecialCells(xlCellTypeBlanks)
On Error GoTo 0
g.Cells.Delete
Set r = Range("C3", Range("C3").End(xlDown))

This splits numbers from letters, part of above macro. I'd like the work to first be moved from 1 sheet to another and then the next few stuff should kick in if someone can assist me with that.

With CreateObject("VBScript.RegExp")
    .Patte = "(d+|D+)"
    .Global = True
    For Each rC In r
        v = Split(Mid(.Replace(rC.Value, "|$1"), 2), "|")
        rC.Offset(, 1).Resize(, UBound(v) + 1).Value = v
    Next rC
End With
Application.ScreenUpdating = False

So after retrieving the data using the first macro above, splitting the numbers and letters, I remove the duplicates using below macro, but like mentioned I want it to happen on a different sheet instead of the current active one. Below is my efforts to do so, now that you've seen my efforts instead of links, I'd like some assistance instead of being redirected to a site that you need to pay for coding. I tried implementing the xldown command to paste on the inactive sheet, but that makes the macro bomb out and the current macro copies it over the cell's current data. Thanking you in advance

Dim lastrow As Long
With Sheet3
    lastrow = .Cells(Rows.Count, "C").End(xlDown).Row
    ActiveSheet.Range("$C$2:$T$" & lastrow).RemoveDuplicates Columns:=3, Header:=xlYes
End With
Application.ScreenUpdating = True
Sheets("Sheet3").Range("D3:E1000").Cut Destination:=Sheets("Sheet1").Range("A1")
End Sub