I’m trying to get all the data from cell range C6:K105 from Sheet1 and save it to Sheet14 but I’m only getting results from cell range C6:C14. Can anyone help me with this VBA codes? Thanks

This is the macro vba code I’m trying to create.

Sub Save()




Set Database = Sheet14.Range("A1:I1")




Set New_Input = Sheet1.Range("C6:K105")




Last_Row = Database.Rows.Count + 1




While Database.Cells(Last_Row, 1) <> ""




Last_Row = Last_Row + 1:




Wend




For i = 1 To New_Input.Rows.Count




If New_Input.Cells(i, 1) <> "" Then




New_Data = New_Input.Cells(i, 1)




Database.Cells(Last_Row, i) = New_Data




End If




Next i




End Sub