'VBA - Autofill cells (every button click the paste shifts one cell)

I want every button click the paste to shift by one row. So how it now pastes in D25, the next time I click the button I want it all to shift one row further. Must be a simple solution. Any help?

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    Dim xSheet As Worksheet
    Set xSheet = ActiveSheet
        If xSheet.Name <> "Definitions" And xSheet.Name <> "fx" And xSheet.Name <> "Needs" Then
            xSheet.Range("F5").Copy
             xSheet.Range("D25").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
            xSheet.Range("F8").Copy
             xSheet.Range("D26").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
            xSheet.Range("F10").Copy
             xSheet.Range("D27").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
            xSheet.Range("F11").Copy
             xSheet.Range("D28").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
            xSheet.Range("F12").Copy
             xSheet.Range("D29").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
            xSheet.Range("F13").Copy
             xSheet.Range("D30").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        End If

    Application.ScreenUpdating = True
End Sub

excel

Sources

This article follows the attribution requirements of Stack Overflow and is licensed under CC BY-SA 3.0.

Source: Stack Overflow

Solution	Source

'VBA - Autofill cells (every button click the paste shifts one cell)

Sources

Related Questions