Clea Contect macro not working

[MOB]

Apologies for the title typos :-/

The code is supposed to look at column K, and for each blank cell, the contents of columns B:J should be blanked out.

I'm not great with VBA and have pieced this together from other code so I'm sure its something stupid..............

TIA

Sub ClearRows()

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

  On Error Resume Next
  Intersect([K6:K & lastrow].SpecialCells(xlBlanks).EntireRow, [B:J]).ClearContents
  On Error GoTo 0
End Sub

 

[footoo]

Intersect(Range("K6:K" & lastrow).SpecialCells(xlBlanks).EntireRow, [B:J]).ClearContents

 

[Fluff]

Try

  Intersect(Range("K6:K" & lastrow).SpecialCells(xlBlanks).EntireRow, Range("B:J")).ClearContents

 

[MOB]

Thanks both, works great

 

[Fluff]

Glad we could help & thanks for the feedback