소프트웨어 엑셀 VBA 관련 문의

Private Sub CommandButton1_Click()

    Dim lngR        As Long

    lngR = Range("D65536").End(xlUp).Row + 1

    Range("C" & lngR) = "=row()-2"

    Range("D" & lngR) = Me.TextBox1

    Range("E" & lngR) = Me.ComboBox1

    Range("F" & lngR) = Val(Me.TextBox3)

    With Range("C" & lngR).Resize(1, 4)

        .Borders.LineStyle = 1

        .HorizontalAlignment = xlCenter

    End With

    Range("D" & lngR + 1).Select

    Application.CutCopyMode = False

    Unload UserForm1

End Sub

해당 예제에 나와있는 부분을 sheet2번으로 적용하려고 하는데 방법이 있을까요?