Increasing row before the macro runs again

[kbk]

I am a beginner trying to maintain my business data using Excel. I created a macro that copies the information from a sales info table and pastes it into an adjacent table that records the customer's name, items bought, total sales, etc. But when I rerun it the next row is not being used and it copies over itself every time. Can anyone help me with this issue?

This is my current Macro

Macro4 Macro
'

'
    Range("B1").Select
    Selection.Copy
    Range("N3").Select
    ActiveSheet.Paste
    Range("Table1[QTY SOLD]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("O3").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    Range("F33").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("AR3").Select
    Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
        , SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Selection.NumberFormat = "$ #,##0.00"
End Sub

 

[kbk]

I tried a different approach but still, the macro is coping over itself.
this is the updated macro

Macro7 Macro
'

'
    Range("B1").Select
    Selection.Copy
    Sheets("Sheet8").Select
    Range("B2").Select
    ActiveSheet.Paste
    Sheets("DAILY SALES").Select
    Range("Table1[QTY SOLD]").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet8").Select
    Range("C2").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    Sheets("DAILY SALES").Select
    Range("F33").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet8").Select
    Range("AF2").Select
    Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
        , SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Columns("AF:AF").EntireColumn.AutoFit
End Sub