Hello,

I have attached a VBA code which I am using for running a macro and I was wondering if it is possible to optimize it a bit more.
Although is working fine, it takes a few seconds to run it. Maybe someone cat take a look to it and help me in doing it shorter/faster.

Any help would be much appreciated.

Kind regards,

  Range(Cells(Fila1, i + 7), Cells(Fila1, i + 7)).Copy Destination:=Range(Cells(Fila1, i + 8), Cells(Fila1, i + 8))
  Range(Cells(Fila1, i + 8), Cells(Fila1, i + 8)).Interior.Color = RGB(255, 255, 255)
  Range(Cells(Fila2, i + 7), Cells(Fila2, i + 7)).Copy Destination:=Range(Cells(Fila2, i + 8), Cells(Fila2, i + 8))
  Range(Cells(Fila2, i + 8), Cells(Fila2, i + 8)).Interior.Color = RGB(255, 255, 255)
  Range(Cells(Fila3, i + 7), Cells(Fila3, i + 7)).Copy Destination:=Range(Cells(Fila3, i + 8), Cells(Fila3, i + 8))
  Range(Cells(Fila3, i + 8), Cells(Fila3, i + 8)).Interior.Color = RGB(255, 255, 255)
  Range(Cells(Fila4, i + 7), Cells(Fila4, i + 7)).Copy Destination:=Range(Cells(Fila4, i + 8), Cells(Fila4, i + 8))
  Range(Cells(Fila4, i + 8), Cells(Fila4, i + 8)).Interior.Color = RGB(255, 255, 255)
  Range(Cells(Fila5, i + 7), Cells(Fila5, i + 7)).Copy Destination:=Range(Cells(Fila5, i + 8), Cells(Fila5, i + 8))
  Range(Cells(Fila5, i + 8), Cells(Fila5, i + 8)).Interior.Color = RGB(255, 255, 255)
  Range(Cells(Fila6, i + 7), Cells(Fila6, i + 7)).Copy Destination:=Range(Cells(Fila6, i + 8), Cells(Fila6, i + 8))
  Range(Cells(Fila6, i + 8), Cells(Fila6, i + 8)).Interior.Color = RGB(255, 255, 255)
  Range(Cells(Fila7, i + 7), Cells(Fila7, i + 7)).Copy Destination:=Range(Cells(Fila7, i + 8), Cells(Fila7, i + 8))
  Range(Cells(Fila7, i + 8), Cells(Fila7, i + 8)).Interior.Color = RGB(255, 255, 255)
  Range(Cells(Fila8, i + 7), Cells(Fila8, i + 7)).Copy Destination:=Range(Cells(Fila8, i + 8), Cells(Fila8, i + 8))
  Range(Cells(Fila8, i + 8), Cells(Fila8, i + 8)).Interior.Color = RGB(255, 255, 255)
  Range(Cells(Fila9, i + 7), Cells(Fila9, i + 7)).Copy Destination:=Range(Cells(Fila9, i + 8), Cells(Fila9, i + 8))
  Range(Cells(Fila9, i + 8), Cells(Fila9, i + 8)).Interior.Color = RGB(255, 255, 255)
  Range(Cells(Fila10, i + 7), Cells(Fila10, i + 7)).Copy Destination:=Range(Cells(Fila10, i + 8), Cells(Fila10, i + 8))
  Range(Cells(Fila10, i + 8), Cells(Fila10, i + 8)).Interior.Color = RGB(255, 255, 255)
  Range(Cells(Fila11, i + 7), Cells(Fila11, i + 7)).Copy Destination:=Range(Cells(Fila11, i + 8), Cells(Fila11, i + 8))
  Range(Cells(Fila11, i + 8), Cells(Fila11, i + 8)).Interior.Color = RGB(255, 255, 255)
  Range(Cells(Fila12, i + 7), Cells(Fila12, i + 7)).Copy Destination:=Range(Cells(Fila12, i + 8), Cells(Fila12, i + 8))
  Range(Cells(Fila12, i + 8), Cells(Fila12, i + 8)).Interior.Color = RGB(255, 255, 255)
  Range(Cells(Fila13, i + 7), Cells(Fila13, i + 7)).Copy Destination:=Range(Cells(Fila13, i + 8), Cells(Fila13, i + 8))
  Range(Cells(Fila13, i + 8), Cells(Fila13, i + 8)).Interior.Color = RGB(255, 255, 255)
  Range(Cells(Fila14, i + 7), Cells(Fila14, i + 7)).Copy Destination:=Range(Cells(Fila14, i + 8), Cells(Fila14, i + 8))
  Range(Cells(Fila14, i + 8), Cells(Fila14, i + 8)).Interior.Color = RGB(255, 255, 255)
  Range(Cells(Fila15, i + 7), Cells(Fila15, i + 7)).Copy Destination:=Range(Cells(Fila15, i + 8), Cells(Fila15, i + 8))
  Range(Cells(Fila15, i + 8), Cells(Fila15, i + 8)).Interior.Color = RGB(255, 255, 255)
  Range(Cells(Fila16, i + 7), Cells(Fila16, i + 7)).Copy Destination:=Range(Cells(Fila16, i + 8), Cells(Fila16, i + 8))
  Range(Cells(Fila16, i + 8), Cells(Fila16, i + 8)).Interior.Color = RGB(255, 255, 255)