Boa noite,

Pelo que entendi, o seu código pode ser alterado para ficar assim:

Sub Selecionar()
    Dim Intervalo As Range
   
    Set Intervalo = Range("B8:C" & [B8:C5000].SpecialCells(xlCellTypeLastCell).Row)
    Intervalo.Select
    Selection.Copy
End Sub

Eu utilizaria o mesmo código de forma mais "enxuta":

Sub Selecionar()
    Range("B8:C" & [B8:C5000].SpecialCells(xlCellTypeLastCell).Row).Select
End Sub

Uma outra forma, com uma sutil diferença:

Sub Selecionar()
    Range(Cells(8, 2), Cells([B8:C5000].SpecialCells(xlCellTypeLastCell).Row, [B8:C5000].SpecialCells(xlCellTypeLastCell).Column)).Select
End Sub

Na última opção, se o último valor preenchido estiver na coluna "B", não vai haver seleção de nenhum valor na coluna "C".

Abraço

Sub Selecionar()
    Dim lRowLast As Long
    
    lRowLast = WorksheetFunction.Max( _
      RowLast(Columns("B")), _
      RowLast(Columns("C")))
   
    Range("B8:C" & lRowLast).Select
End Sub

Function RowLast(rng As Range) As Long
    'Retorna o valor da última linha povoada do intervalo rng
    With rng
        On Error Resume Next
        RowLast = .Find(What:="*" _
          , After:=.Cells(1) _
          , SearchDirection:=xlPrevious _
          , SearchOrder:=xlByColumns _
          , LookIn:=xlFormulas).Row
        If RowLast = 0 Then RowLast = rng.Cells(1).Row
    End With
End Function

Boa noite, segue em anexo.

att MarkoSoftware

benzadeus que inteligência kkk obrigado.
A dica do benzadeus é exatamente o que eu precisava, mas obrigado tambem aos outros colegas que deram sua contribuição.
Ficará como a planilha que o markosoftware anexou.