Buscar columna y redondear

Hola Dam!

Tengo un problema, estoy armando una macro en la cual necesito que encuentre el encabezado de la columna y cuando lo encuentre me redondie toda esa columna.

Ya tengo la macro pero no me funciona, solo si lo hago por separado si...

Sub columnaquincena()
 ucol = Cells(7, Columns.Count).End(xlToLeft).Column
 For i = 1 To ucol
 Cells(7, i).Select
 If ActiveCell = "PUNTOS ACUMULADOS" Then
 Cells(7, i + 1).EntireColumn.Select
 ufila = Range("A" & Rows.Count).End(xlUp).Row
 For j = 2 To ufila
 Cells(j & ucol) = Format(Round(Cells(j & ucol), 0))
 'Selection.Insert Shift:=xlToLeft
 GoTo Salto
 Else
 End If
 Next
 Next
Salto:
End Sub

Gracias por tu ayuda.