Sub p()
Dim i&, j&, k&, L0&, L1&, C0&, C1&, MonTab(), v()
With Range("A1")
MonTab = .CurrentRegion.Value
L0 = LBound(MonTab, 1): L1 = UBound(MonTab, 1)
C0 = LBound(MonTab, 2): C1 = UBound(MonTab, 2)
For i = L0 To L1
If MonTab(i, 3) = 16 Then MonTab(i, 3) = "": k = k + 1
Next i
ReDim v(L0 To L1 - k, C0 To C1)
k = L0
For i = L0 To L1
If MonTab(i, 3) <> "" Then
For j = C0 To C1: v(k, j) = MonTab(i, j): Next
k = k + 1
End If
Next i
.CurrentRegion.ClearContents
.Resize(k - LBound(MonTab, 1), UBound(MonTab, 2)).Value = v
End With
End Sub