Aktar butonuna aşağıdaki kodu yazarak dener misiniz?
With ThisWorkbook.Sheets("Sayfa1")
Dim i As Long
i = .Range("L1") + 3
.Range("Q" & i & ":" & "R" & i).Value = .Range("A2:C2").Value
.Range("U" & i & ":" & "V" & i).Value = .Range("F2:G2").Value
.Range("S" & i).Value = .Range("Q" & i).Value - Range("R" & i).Value
.Range("W" & i).Value = .Range("U" & i).Value - Range("V" & i).Value
End With
MsgBox "İşlem Tamamlandı"