Problem with macro now cells are in a table.

[SSonic70]

Hi, I'm a bit of a beginner when it comes to coding macros and I am trying to fix my macro that used to work when my values weren't in a table, but I don't know how.
I am making a DVD stock worksheet and I am making an entry form to the side of the DVD Stock table which is supposed to copy the formatting of the cell above it to the cell, and then copy a value from the entry form into that cell, one at a time.
This is not working now, and I don't know how to fix it. How would I get my code to work with a table?

Sub Button1_Click()
'
' clear_codes
'

Sheets("DVD Stock Worksheet").Select
Range("A1").End(xlDown).Offset(-1, 1).Select
Application.CutCopyMode = False
Selection.Copy

Sheets("DVD Stock Worksheet").Select
Range("A1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False

Sheets("DVD Stock Worksheet").Range("I4").Select
Application.CutCopyMode = False
Selection.Copy

Sheets("DVD Stock Worksheet").Select
Range("A1").End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues

Sheets("DVD Stock Worksheet").Select
Range("A1").End(xlDown).Offset(-1, 1).Select
Application.CutCopyMode = False
Selection.Copy

Sheets("DVD Stock Worksheet").Select
Range("A1").End(xlDown).Offset(0, 1).Select
Selection.PasteSpecial xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False

Sheets("DVD Stock Worksheet").Range("I5").Select
Application.CutCopyMode = False
Selection.Copy

Sheets("DVD Stock Worksheet").Select
Range("A1").End(xlDown).Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues

Sheets("DVD Stock Worksheet").Select
Range("A1").End(xlDown).Offset(-1, 2).Select
Application.CutCopyMode = False
Selection.Copy

Sheets("DVD Stock Worksheet").Select
Range("A1").End(xlDown).Offset(0, 2).Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False

Sheets("DVD Stock Worksheet").Range("I6").Select
Application.CutCopyMode = False
Selection.Copy

Sheets("DVD Stock Worksheet").Select
Range("A1").End(xlDown).Offset(0, 2).Select
Selection.PasteSpecial Paste:=xlPasteValues

Sheets("DVD Stock Worksheet").Select
Range("A1").End(xlDown).Offset(-1, 3).Select
Application.CutCopyMode = False
Selection.Copy

Sheets("DVD Stock Worksheet").Select
Range("A1").End(xlDown).Offset(0, 3).Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False

Sheets("DVD Stock Worksheet").Range("I7").Select
Application.CutCopyMode = False
Selection.Copy

Sheets("DVD Stock Worksheet").Select
Range("A1").End(xlDown).Offset(0, 3).Select
Selection.PasteSpecial Paste:=xlPasteValues

Sheets("DVD Stock Worksheet").Select
Range("A1").End(xlDown).Offset(-1, 4).Select
Application.CutCopyMode = False
Selection.Copy

Sheets("DVD Stock Worksheet").Select
Range("A1").End(xlDown).Offset(0, 4).Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
        
Sheets("DVD Stock Worksheet").Select
Range("A1").End(xlDown).Offset(0, 4).Select
Row = Selection.Row
Selection.Formula = "=COUNTIF('Transactions Worksheet'!C:C,B" & Row & ")"
Application.CutCopyMode = False
   

End Sub