Може да има и по-добър начин, но ето един:

Dim ws1 As Worksheet
Set ws1 = Sheet1

' а взема мин(а1,а2)
а=WorksheetFunction.Min(A1, A2)
' центрира клетка (1,1)
ws1.Cells(1, 1).HorizontalAlignment = xlCenter

N