Hola amigos ya lo solucione agregando esto:
Código vb:
Ver originalobjWorkbook.ActiveSheet.Cells(I + 1, 1).HorizontalAlignment = xlRight ' alinear a la derecha la columna 1
objWorkbook.ActiveSheet.Cells(I + 1, 5).HorizontalAlignment = xlRight
objWorkbook.ActiveSheet.Cells(I + 1, 6).HorizontalAlignment = xlRight
objWorkbook.ActiveSheet.Cells(I + 1, 7).HorizontalAlignment = xlRight