Sub EE_ClearRows(FromRow As Long, Optional ToRow As Long)
' Clears all the data from the rows
'http://excelexperts.com/xla-routines-eeClearRows    for updates on this routine
    If ToRow = 0 Then
        ToRow = FromRow
    End If
 
    range(Cells(FromRow, 1), Cells(ToRow, 1)).EntireRow.ClearContents
End Sub