А как удалить все строки, где пустая ячейка в столбце B с начиная с 5-ой строки?

А как удалить все строки, где пустая ячейка столбце B с 5-ой строки?

вопрос решен  
Sub Sh1ToSh2()  
Range("b5:b" & Rows.Count).ClearContents  
Range("c5:c" & Rows.Count).ClearContents  
Range("d5:d" & Rows.Count).ClearContents  
Range("e5:e" & Rows.Count).ClearContents  
Range("f5:f" & Rows.Count).ClearContents  
Range("g5:g" & Rows.Count).ClearContents  
Range("h5:h" & Rows.Count).ClearContents  
Range("i5:i" & Rows.Count).ClearContents  
Range("j5:j" & Rows.Count).ClearContents  
Dim Sh1 As Worksheet, Sh2 As Worksheet, n As Long  
Set Sh1 = Sheets("Расчет")  
Set Sh2 = Sheets("В производство")  
n = Sh1.[MATCH(9E+307,A:A,1)] - 3
Sh2.[B5].Resize(n, 3).Value = Sh1.[A4].Resize(n, 3).Value
Sh2.[E5].Resize(n, 2).Value = Sh1.[E4].Resize(n, 2).Value
Sh2.[G5].Resize(n, 2).Value = Sh1.[H4].Resize(n, 2).Value
Sh2.[I5].Resize(n, 2).Value = Sh1.[K4].Resize(n, 2).Value
End Sub

Вот собственно сам макрос  
Sub Sh1ToSh2()  
Dim Sh1 As Worksheet, Sh2 As Worksheet, n As Long  
Set Sh1 = Sheets("Расчет")  
Set Sh2 = Sheets("В производство")  
n = Sh1.[MATCH(9E+307,A:A,1)] - 3
Sh2.[B5].Resize(n, 3).Value = Sh1.[A4].Resize(n, 3).Value
Sh2.[E5].Resize(n, 2).Value = Sh1.[E4].Resize(n, 2).Value
Sh2.[G5].Resize(n, 2).Value = Sh1.[H4].Resize(n, 2).Value
Sh2.[I5].Resize(n, 2).Value = Sh1.[K4].Resize(n, 2).Value
End Sub

Имеется макрос, для переноса столбцов на другой лист. Что сделать чтоб перед тем как он будет добавлять новые данные он стирал предыдущие значения?