Sub ResetUsedRange(ws As Worksheet)
    If ws.UsedRange.Rows.Count Then ws.UsedRange.Calculate
End Sub
'------------------------------------------------------------------

'Call the above procedure like so:
ResetUsedRange Sheet1