Delete cells macro

Hi Sarah, thanks for your query. The following code should do the trick. I named my source datasheet "mydata", you should amend this to your own source datasheet name. Here's the code:

*****

sub delete_me()

Dim introwcount As Integer
Dim intcolumncount As Integer

For introwcount = 1 To Sheets("mydata").Range("K1:AM2104").CurrentRegion.Rows.Count

For intcolumncount = 1 To Sheets("mydata").Range("K1:AM2104").CurrentRegion.Columns.Count

If Sheets("mydata").Range("K1").Cells(introwcount, intcolumncount).Value = "65-4" Then

Range(Sheets("mydata").Range("K1").Cells(introwcount, intcolumncount), Sheets("mydata").Range("K1").Cells(introwcount + 1, intcolumncount)).Select
Selection.Delete Shift:=xlToLeft

End If

Next intcolumncount

Next introwcount


End Sub

*****

Hope this helps,

Anthony