VBA Error Only Comments May Appear After End Sub / Function Or Property

I have this code, which is producing an error that says, "Only comments may appear after End Sub, End Function, or End Property. I understand the error, but what Im unsure about is how to begin the subroutine in a way such that

1. This error goes away
2. What is the correct method name for the next subroutine
(i.e.: Private Sub Declare_Variables()

How to emcompass the subroutine. The error is happening in the below code at the "Public Cat1 as Variant", "Public Cat2 as Variant".

Code:
Option Explicit
Private Sub cmdAdd_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("View Lessons")

[Code] .....