Help with fixing match problem in code

So, if it does not matter what's in E run by this:

Sub macro1()
Dim cell As Range
For Each cell In Range("E6:E17")  'create range as you need
    If cell.Value <> "" Then
        cell.Offset(0, 1).Value = cell.Offset(0, 8).Value
        cell.Offset(0, 2).Value = cell.Offset(0, 9).Value
        cell.Offset(0, 3).Value = cell.Offset(0, 10).Value
    End If
Next cell
End Sub

a bit shorter and works