Sub Aktar()

If Range("L1") = "" Or Range("L1") > 12 Then

 MsgBox "L1 Alanına geçerli bir değer girmediniz."

    Else

 With ThisWorkbook.Sheets("Sayfa1")

 Dim i As Long

 

  i = .Range("L1") + 3

    If Range("Q" & i).Value = "" Then

        .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

    Else

    

    If MsgBox("Kaydetmek istediğiniz alanda kayıt var. Değişiklik yapılsın mı?", vbCritical + vbYesNo + vbDefaultButton1, "UYARI") = vbNo Then Exit Sub

      .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 If

      

End With

        MsgBox "İşlem Tamamlandı"

    End If

End Sub

Üstteki kodu dener misin?