slette celler der starter med det samme i macro

hej

Jeg har fået fumlet en macro sammen ved at genbruge en anden macro men jeg skal have tilføjet nogle ting.

Macroen

Sub Opmærkning()
    X2 = 1: Y2 = 1
    For Y1 = 1 To 2550
        If Worksheets("Box plan").Cells(Y1, 2).Value = "SENSOR" Then Y1 = Y1 + 1
        If Worksheets("Box plan").Cells(Y1, 2).Value = "VALVE" Then Y1 = Y1 + 1
        If Worksheets("Box plan").Cells(Y1, 2).Value = Left("I ", 2) Then Y1 = Y1 + 1
        If Worksheets("Box plan").Cells(Y1, 3).Value > 0 Then
        Worksheets("Opmærkning").Cells(Y2, X2).Value = Worksheets("Box plan").Cells(Y1, 2).Value
            Y2 = Y2 + 1
            If Y2 = 2550 Then X2 = X2 + 5: Y2 = 1
            End If
            Next Y1
End Sub

spørgsmål 1

jeg har lavet følgende linie
If Worksheets("Box plan").Cells(Y1, 2).Value = Left("I ", 2) Then Y1 = Y1 + 1

det jeg prøver på er at finde alle celler der starter med I og der efter ligge 1 til Y1. Det virker dog ikke

spørgsmål 2

Jeg har brug for at finde linier der starter med f.eks "ON" og sletter det som står efter 6 pladser

spørgsmål 3

Jeg har brug for at sikre mig at der f.eks max er 16 bogstaver/tal tilsammen i rækken. Det kunne være lækkert hvis man kunne få en tekstbox op hvori der står hvilken række der overskrider reglen

håber i forstår og kan hjælpe