使用从比较循环获得的结果，将范围从一张纸复制到另一张

我正试图从一个表格复制一个范围到另一个是比较循环的结果。 循环首先比较一行中的单元格中的值与表单上的某些值，如果匹配，则将该整个范围复制到另一个表单中。 这是我的代码：

Worksheets("Sheet1").Cells(1, 14).Value = Driver_sel For k = 1 To Worksheets("Sheet1").Cells(Rows.Count, 2).End(xlUp).Row If ((Cells(k, 2))) = Cells(1, 14) Then Worksheets("Sheet1").Range(Cells(k, 1), Cells(k, 12)).Copy ActiveSheet.Cells(2, 14).PasteSpecial Transpose:=True End If Next k