カット/ペースト複数の異なる条件に基づいて、1つのシートから別のシートへの行

Question

これは私が既に別の教科ビデオから操作したコードに従います。私はそれが私がいくつかの助けを得ることができることを期待して正しく動作するように見えることができません。私が達成しようとしていることは、Excelファイル内の単一の列をレビューし、要件が満たされている行をカットし、別のシート上の最初の開いている行に貼り付けることです。

Sub V_LTC() 

Dim i As Long, LastRow As Long, LTCtype As String, erow As Long 

LastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).row 
Application.ScreenUpdating = False 

For i = LastRow To 2 Step -1 
LTCtype = Cells(i, "BX") 

If (LTCtype = "UVT") Then     '''''''''''''''''''''''' 
ElseIf (LTCtype = "V2") Then    ' 
ElseIf (LTCtype = "V2A") Then    'Requirements For Sorting 
ElseIf (LTCtype = "RMV2") Then   ' 
ElseIf (LTCtype = "RMVA") Then   '''''''''''''''''''''''' 

ActiveCell.EntireRow.Cells(i, "BX").Select 
Selection.Cut 
erow = Sheet7.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).row 
ActiveSheet.Paste Destination:=Worksheets("V-LTC").Rows(erow) 

End If 

Next i 

delete_blank_rows 

End Sub 

Sub delete_blank_rows() 

Dim row As Long 

LastRow = ThisWorkbook.Sheets("LTC and Transfer").Cells(Rows.Count, 
1).End(xlUp).row 

row = 2 
For row = row To LastRow 
If Cells(row, 1) = "" Then 
Cells(row, 1).EntireRow.Delete 
End If 
Next row 

End Sub 

Answer 1

If文は間違っていますが、特にアクティブなシート材に頼って改善することもできます。

Sub V_LTC() 
    On Error GoTo Cleanup 
    Application.ScreenUpdating = False: Application.EnableEvents = False 
    Dim i As Long 

    With ThisWorkbook.Sheets("LTC and Transfer") 
    For i = .Cells(.Rows.count, "BX").End(xlUp).row To 2 Step -1 
     Select Case .Cells(i, "BX").Value2 
      Case "UVT", "V2", "V2A", "RMV2", "RMVA" 
      .Rows(i).Copy Worksheets("V-LTC").Cells(.Rows.count, 1).End(xlUp).Offset(1) 
      .Rows(i).Delete 
     End Select 
     Next i 
    End With 
Cleanup: 
    Application.ScreenUpdating = True: Application.EnableEvents = True 
End Sub