Len Cells issue|VBA & Macros|Excel Forum|My Online Training Hub

Hi Guys,
I made this macro but is not working properly
I want if in cell (x,x) the number of characters is lower than 7 and cell (y,y) have the leather T
Then copy cell (z,z)...
This is the code I wrote:

Dim x As Integer

Dim nRows As Integer

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

For x = 6 To nRows

If Cells(x, 11) <> 0 And Cells(x, 10) <> 0 Then

If (Len(Cells(x, 11)) <= 7 And Cells(x, 10) = "T") Then

Else

Cells(x, 11).Copy

Cells(x, 24).Select

ActiveSheet.Paste

End If

End If

Next x

End Sub