Trouble Storing Double Quotation Mark to Create a String Range

Hi Everyone -
I know this is probably easy but my brain is fried.

I'm trying to store a string representing a row range, such as "12:14". I find the 2 rows using the following code

Sub Purge_Cab()
Dim Top_Row As Long, Bot_Row As Long, sDel_Row_Range As String

    Sheets("CAB Report").Select
    Range("tbl_CAB_Entries[[#Headers],[CAB'#]]").Select
    ' find first row below header
    Selection.End(xlDown).Select
    Top_Row = ActiveCell.Row
    ' find bottom row 
    Selection.End(xlDown).Select
    Bot_Row = ActiveCell.Row
    
' NEITHER ONE OF THE FOLLOWING WORK - - HERE IS WHERE I NEED SOME HELP
'    sDel_Row_Range = WorksheetFunction.Concatenate(CHAR(34), Top_Row, ":", Bot_Row, CHAR(34))   
    sDel_Row_Range = """ & Top_Row & ":" & Bot_Row & """

    MsgBox Top_Row & vbCrLf & Bot_Row & vbCrLf & sDel_Row_Range
    Rows(sDel_Row_Range).Select
    Selection.Delete Shift:=xlUp
End Sub

Thank You in Advance,
Jim

Here is it,

Sub Purge_Cab()
Dim Top_Row As Long, Bot_Row As Long, sDel_Row_Range As String

    Sheets("Hoja1").Select
    Range("a1").Select 'tbl_CAB_Entries[[#Headers],[CAB'#]]").Select
    ' find first row below header
    Selection.End(xlToRight).Select
    Top_Row = ActiveCell.Row
    ' find bottom row
    Selection.End(xlDown).Select
    Bot_Row = ActiveCell.Row
    
' NEITHER ONE OF THE FOLLOWING WORK - - HERE IS WHERE I NEED SOME HELP
'    sDel_Row_Range = WorksheetFunction.Concatenate(CHAR(34), Top_Row, ":", Bot_Row, CHAR(34))
    sDel_Row_Range = Top_Row & ":" & Bot_Row

    MsgBox Top_Row & vbCrLf & Bot_Row & vbCrLf & sDel_Row_Range
    Rows(sDel_Row_Range).Select
    Selection.Delete Shift:=xlUp
End Sub

Saludos, Juan

I am confused here.

Where does the "Sheets("Hoja1"), jump from?

Thanks Juan. Problem solved.