Private Sub ClearContents(trgSheet As HSSFSheet, StartRowNum As Integer, trgClm As Integer)
With trgSheet
For i As Integer = StartRowNum To .LastRowNum
Dim row As HSSFRow = .GetRow(i)
If row IsNot Nothing Then
Dim rCell As HSSFCell = .GetRow(i).GetCell(trgClm)
If rCell IsNot Nothing Then rCell.SetCellValue(String.Empty)
End If
Next
End With
End Sub