Como dar formato solo a celdas que contengan datos

Considerando que en todas las hojas los datos estan en la columna A
prueba la siguiente macro
Sub Bordes_hojas()
Dim n As Integer, msj As String
For n = 1 To Worksheets.Count
nhoja = Worksheets(n).Name
ult = Sheets(nhoja).Range("a65536").End(xlUp).Row
fila = 2
For z = 1 To ult
If Sheets(nhoja).Cells(fila, 1).Value = Empty Then
Else
Sheets(nhoja).Select
Cells(fila, 1).Select
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
Selection.Font.Italic = True
Selection.Font.Bold = True
End If
fila = fila + 1
Next z
Next n
End Sub