'응용 프로그램 정의 오류 또는 개체 정의 오류입니다' 라고 떠 문의드립니다.!!

'1004' 런타임 오류가 발생하였습니다:

응용 프로그램 정의 오류 또는 개체 정의 오류입니다

라고 떠서 문의드립니다!

한 시트에 C4:C11칸 까지는 내용 등을 입력하고, C12칸에는 클릭버튼으로 종류를 입력 후

저장 버튼을 누를 때 마다

DB 시트에 한 줄씩 내려가면서 자동입력되는 VBA 프로그램을 만들어보고자합니다.

고수님들의 해결 부탁드립니다.

Sub 단추2_click()
Dim rPos As Range
Dim vList

Set rPos = Worksheets("DB").Cells(Rows.Count, 1).End(xlUp).Offset(1)

With Worksheets("입력")
vList = .Range("c16:c19") ' 종류

rPos.Resize(1, 8) = WorksheetFunction.Transpose(.Cells(4, 3).Resize(8, 1))
rPos.Cells(1, 9) = vList(.Cells(12, 3), 1)

.Range("c4:c12").ClearContents
End With

a = Worksheets("DB").Cells(1, 11).Value

Worksheets("DB").Cells(a, 1) = Worksheets("입력").Cells(4, 3)
Worksheets("DB").Cells(a, 2) = Worksheets("입력").Cells(5, 3)
Worksheets("DB").Cells(a, 3) = Worksheets("입력").Cells(6, 3)
Worksheets("DB").Cells(a, 4) = Worksheets("입력").Cells(7, 3)
Worksheets("DB").Cells(a, 5) = Worksheets("입력").Cells(8, 3)
Worksheets("DB").Cells(a, 6) = Worksheets("입력").Cells(9, 3)
Worksheets("DB").Cells(a, 7) = Worksheets("입력").Cells(10, 3)
Worksheets("DB").Cells(a, 8) = Worksheets("입력").Cells(11, 3)

Worksheets("입력").Range("c4:c12").ClearContents

ActiveWorkbook.Save