Macro de Excel para cortar filas y pegar en otra spreadsheet

Estoy tratando de get una macro para cortar y pegar ciertas filas desde la hoja ASR a la hoja LS, siempre que la columna I sea igual a LS.

Sub MoveLS() Dim i As Variant Dim endrow As Integer endrow = Sheets("ASR").Range("A" & Rows.Count).End(xlUp).Row For i = 2 To endrow If Cells(i, "I").Value = "LS" Then Cells(i, "I").EntireRow.Cut Destination:=Sheets("LS").Range("A" & Rows.Count).End(xlUp).Offset(1) End If Next End Sub 

He estado mirando diferentes variaciones de este código dentro y fuera de las últimas 8 horas y no puedo entender lo que no funciona. ¡Cualquier consejo es apreciado!

Es porque no has declarado tus hojas. Pruebe el siguiente código:

 Sub MoveLS() Dim i As Variant Dim endrow As Integer Dim ASR As Worksheet, LS As Worksheet Set ASR = ActiveWorkbook.Sheets("ASR") Set LS = ActiveWorkbook.Sheets("LS") endrow = ASR.Range("A" & ASR.Rows.Count).End(xlUp).Row For i = 2 To endrow If ASR.Cells(i, "I").Value = "LS" Then ASR.Cells(i, "I").EntireRow.Cut Destination:=LS.Range("A" & LS.Rows.Count).End(xlUp).Offset(1) End If Next End Sub