Need Macro to run on 1 sheet only

Hello, I am currently using this macro on sheet 1:

Sub Transposer()
    Dim lngR As Long
    Dim lngC As Long
    
    lngC = 2
    
    For lngR = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        If Not IsNumeric(Cells(lngR, "A").Value) Then
            lngC = lngC + 1
            Cells(1, lngC).Value = Cells(lngR, "A").Value
        Else
            Cells(Rows.Count, lngC).End(xlUp)(2).Value = Cells(lngR, "A").Value
        End If
    Next lngR
Range("A:B").EntireColumn.Delete
End Sub

to turn vertical columns of data, to horizontal columns of data. When doing so it will mess up formulas I have on sheet 2. Any ideas on how to solve this problem?