Add a stop to a macro when first empty row

[Glafond]

I'm using this macro to change text to Uppercase :

For Each cell In Range("A5:CU304")
cell.Value = UCase(cell.Value)
Next

The macro works well, but it takes time to process every cell from this range. In general, I won't have that many rows with values.
I'ld like ma macro to stop when hitting an empty value in the A column, so it would go faster for few rows files.

How can i change my macro to stop at first empty "A" cell and go to next action (copy to value + save)?

Thanks !

 

[offthelip]

try this which should be about 1000 times faster

Sub test()
alldata = Range("A5:CU304")
For i = 1 To UBound(alldata, 1)
 For j = 1 To UBound(alldata, 2)
  alldata(i, j) = UCase(alldata(i, j))
 Next j
Next i
Range("A5:CU304") = alldata
End Sub

 

[Glafond]

try this which should be about 1000 times faster

Sub test()
alldata = Range("A5:CU304")
For i = 1 To UBound(alldata, 1)
 For j = 1 To UBound(alldata, 2)
  alldata(i, j) = UCase(alldata(i, j))
 Next j
Next i
Range("A5:CU304") = alldata
End Sub

It works perfectly
Thanks !