VBA to look for an @ symbol and shift rest of row to right if not there

[debo007]

Hi everyone. I'm having a hard time trying to sort out an Excel VBA. I need to search column D and if there is not an @ symbol anywhere in the cell, shift the rest of the row to the right 1 cell and empty the cell without the @ symbol.
I'm looking to see if the cell has an email address, if it does, leave it alone and if it has something else, shift the remaining cells in that row to the right.

Thanks

 

[Fluff]

Hi & welcome to MrExcel.
How about

Sub Checkforemail()
   Dim cl As Range
   For Each cl In Range("D2", Range("D" & Rows.Count).End(xlUp))
      If InStr(1, cl, "@", 1) = 0 Then cl.Insert xlToRight
   Next cl
End Sub

 

[debo007]

Looks like that worked!
Thank you!

 

[Fluff]

You're welcome