Antes de nada muchas gracias por contestar,
Ya lo he intentado pero al poner -6 como no existe ninguna columna detras de la columna A me da un error de depuración y no puedo entender el porque lo hace.
He modificado la parte tambien que me has dicho perdoname pero ha sido un error a la hora de escribirlo. Lo tengo puesto como tu me has dicho.
Dim Fila As Integer: Fila = ActiveCell.Row
Muchas gracias de nuevo por contestar
Cita:
Iniciado por Monimo 
mmm y si en lugar de Cells(Fila,Colu-5).select pones Cells(Fila,Colu-6).select?
Copié tu código tal cual y me arrojó muchos errores, estas usando macros de excel??
Dim Fila As Integer: Fila = ActiveCell.Rows
esta parte la tuve que cambiar por Dim Fila As Integer: Fila = ActiveCell.Row Row sin la s y así ya me sale... ese es tu código tal cual?