Me la sono cavata giusto poche ore fa, ma mi manca ancora un minuscolo particolare!

codice:
Selection.Interior.ColorIndex = xlNone
ActiveCell.Offset(0, 1).Range("A1").Select
Selection.Interior.ColorIndex = xlNone
ActiveCell.Offset(1, -1).Range("A1:B1").Select
Selection.Interior.ColorIndex = 40
ActiveCell.Offset(0, 1).Range("A1").Select
Selection.Copy
Range("C35").Select
ActiveSheet.Paste
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
Questo fa all'incirca quello che volevo. Mi servivano alcuni particolari in più, se possibile...

Quando incollo in una cella, è possibile sommare al contenuto una certa cifra? O comunque applicarvi una formula?

Tipo

Range("A1").Select
ActiveCell.ForumulaR1C1 = "Selection.Paste + 20"


Sarebbe anche bello, dopo aver fatto tutto, poter tornare alla seconda casella in verticale a sinistra. grazie.