Sub SIDMOVER2()

Dim dsht As Worksheet

Dim tsht As Worksheet

Set dsht = ThisWorkbook.Sheets("Data")

Set tsht = ThisWorkbook.Sheets("Target")

lRow = dsht.Cells(Rows.Count, 1).End(xlUp).Row

y = 2

For x = 2 To lRow

If dsht.Cells(x, 2) Like "[a-zA-Z]######" Then

tsht.Cells(y, 1) = dsht.Cells(x, 1)

tsht.Cells(y, 2) = dsht.Cells(x, 2)

tsht.Cells(y, 3) = dsht.Cells(x, 3)

ElseIf dsht.Cells(x, 2) Like "FUND" Then

tsht.Cells(y, 1) = dsht.Cells(x, 1)

tsht.Cells(y, 2) = dsht.Cells(x, 2)

tsht.Cells(y, 3) = dsht.Cells(x, 3)

Else

y = y + 1

End If

Next x

End Sub