VB Kode Hjælp

Denne kode har jeg prøvet at dmide en anden kode ind i men tror ikke lige jeg har så styr på det endnu at jeg kan.
Kode 1 Som kopier til andet ark Henter data fra T det skal den gøre via kode 2

Kode 1
Sub CopySheet()

CheckID = Sheets("T").Range("M2")
IDExist = False

WBName = Format(Date, "mmmm") & ".xls"
ShName = Format(Date, "d")
Workbooks.Open Filename:="C:\excel\" & WBName
Workbooks("vognx.xls").Activate

If Workbooks(WBName).Worksheets(ShName).Range("K:K").Find(CheckID, LookIn:=xlValues) Is Nothing Then
    LastRow = Workbooks(WBName).Worksheets(ShName).Cells.SpecialCells(xlLastCell).Row
    Sheets("T").Range("C2:O25").Copy Workbooks(WBName).Worksheets(ShName).Range("A" & LastRow + 1)
End If

Workbooks(WBName).Close savechanges:=True

End Sub

Kode 2
Public Sub SelectUnionRange()
  Dim i As Long
  Dim it
  Dim c As Range
  Dim rngUnion As Range
  Dim rngCol As New Collection
 
  For Each c In Range("C2:C25")
    If Not IsEmpty(c.Value) Then
    rngCol.Add Item:=c.Offset(, -0).Resize(1, 13)
    End If
  Next
 
  Set rngUnion = rngCol.Item(1)
  For Each it In rngCol
    Set rngUnion = Union(rngUnion, it)
  Next
 
  rngUnion.Select
  Set rngUnion = Nothing
End Sub