I'm having trouble figuring out where I went wrong here. I've made a very similar button in other workbooks without trouble- what could be going wrong?
Sub CommandButton1_Click()
Dim sh1 As Worksheet, sh2 As Worksheet
Dim r1 As Range, r2 As Range
Dim v1 As Variant, v2 As Variant
Set sh1 = Worksheets("Tool")
Set sh2 = Worksheets("SaveFile")
v1 = Array("D3", "D4", "D5", "D6", "D7", "D8", "D9", "D10", "D11", "D12", "D13", "H4", "H5", "H8", "H9", "H10", "H11", "H12", "H13", "E17")
v2 = Array("C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V")
rw = sh2.Cells(Rows_Count, "C").End(xlUp).Offset(1, 0).Row
For i = LBound(v1) To UBound(v1)
Set r1 = sh1.Range(v1(i))
Set r2 = sh2.Cells(rw, v2(i))
r2.Value = r1.Value
Next i
End Sub
Any advice?