ozaman J,M ve P sütunlarına ayırmaya gerek yok bence hepsi bir sütunda olabilir.
mevcut duruma göre "Terfi Aktar" butonunun kodunu aşağıdaki kodla değiştirir misiniz?
yada isterseniz yeni bir düğme ekleyip ona yazın

Dim rngAlan, rngKopyala As Range

Dim SonHcr As Long

Dim KriterStn, AyByt, AsilByt As Byte

Dim BasTrh, BitTrh, AsilTrh As Date

AyByt = Format(CDate("1." & Range("D3") & "." & Range("D2")), "m")

AsilTrh = DateSerial(Range("D2"), AyByt, 15)



If Range("D4") = "Normal Terfi" Then

    KriterStn = 9

    AsilByt = 1

ElseIf Range("D4") = "2 Yıla 1 Terfi" Then

    KriterStn = 12

    AsilByt = 2

ElseIf Range("D4") = "8 Yıla 1 Terfi" Then

    KriterStn = 15

    AsilByt = 8

End If



BitTrh = DateAdd("m", -AsilByt * 12, AsilTrh)

BasTrh = DateAdd("m", -1, BitTrh) - 1



SonHcr = Sheets("VERİ").Cells(Rows.Count, 2).End(xlUp).Row



Set rngAlan = Sheets("VERİ").Range("B2:P" & SonHcr)

'Set rngKopyala = Sheets("VERİ").Range("B3" & SonHcr & ",F3:G" & SonHcr)

'Normal Terfi            2 Yıla 1 Terfi          8 Yıla 1 Terfi

'       9                      12                     15

'       1                      2                       8

rngAlan.AutoFilter

rngAlan.AutoFilter field:=KriterStn, _

          Criteria1:=">=" & CLng(BasTrh), _

          Operator:=xlAnd, _

          Criteria2:="<=" & CLng(BitTrh)

Set rngKopyala = Sheets("VERİ").Range("B3" & SonHcr & ",F3:G" & SonHcr)



If Sheets("Form").Cells(Rows.Count, 2).End(xlUp).Row > 7 Then _

   Sheets("Form").Range("B8:S" & Sheets("Form").Cells(Rows.Count, 2).End(xlUp).Row).Clear

On Error Resume Next



rngKopyala.SpecialCells(xlCellTypeVisible).Copy _

    Destination:=Sheets("Form").Range("B8")



rngAlan.AutoFilter