For w = 1 To LastRowHere(6)
LastRowThere(6) = there.Sheets("Sheet1").Cells(Sheets("Sheet1").Rows.Count, log(6)).End(xlUp).Row
For s = LastRowThere(6) To LastRowThere(6)
here.Sheets("Sheet1").Rows(w).Columns(source(0)).Copy Destination:=there.Sheets("Sheet1").Rows(s + 1).Columns(log(0))
here.Sheets("Sheet1").Rows(w).Columns(source(1)).Copy Destination:=there.Sheets("Sheet1").Rows(s + 1).Columns(log(1))
here.Sheets("Sheet1").Rows(w).Columns(source(2)).Copy Destination:=there.Sheets("Sheet1").Rows(s + 1).Columns(log(2))
here.Sheets("Sheet1").Rows(w).Columns(source(3)).Copy Destination:=there.Sheets("Sheet1").Rows(s + 1).Columns(log(3))
here.Sheets("Sheet1").Rows(w).Columns(source(4)).Copy Destination:=there.Sheets("Sheet1").Rows(s + 1).Columns(log(4))
here.Sheets("Sheet1").Rows(w).Columns(source(5)).Copy Destination:=there.Sheets("Sheet1").Rows(s + 1).Columns(log(5))
here.Sheets("Sheet1").Rows(w).Columns(source(6)).Copy Destination:=there.Sheets("Sheet1").Rows(s + 1).Columns(log(6))
Columns(log(6)).WrapText = True
Columns(log(6)).AutoFit
Columns(log(6)).ColumnWidth = 30
Next s
Next w
my copy file has 9 rows with data. my destination file has 8 rows with data that the macro copied over.
anyone know why i cant copy the last row?
LastRowThere(6) = there.Sheets("Sheet1").Cells(Sheets("Sheet1").Rows.Count, log(6)).End(xlUp).Row
For s = LastRowThere(6) To LastRowThere(6)
here.Sheets("Sheet1").Rows(w).Columns(source(0)).Copy Destination:=there.Sheets("Sheet1").Rows(s + 1).Columns(log(0))
here.Sheets("Sheet1").Rows(w).Columns(source(1)).Copy Destination:=there.Sheets("Sheet1").Rows(s + 1).Columns(log(1))
here.Sheets("Sheet1").Rows(w).Columns(source(2)).Copy Destination:=there.Sheets("Sheet1").Rows(s + 1).Columns(log(2))
here.Sheets("Sheet1").Rows(w).Columns(source(3)).Copy Destination:=there.Sheets("Sheet1").Rows(s + 1).Columns(log(3))
here.Sheets("Sheet1").Rows(w).Columns(source(4)).Copy Destination:=there.Sheets("Sheet1").Rows(s + 1).Columns(log(4))
here.Sheets("Sheet1").Rows(w).Columns(source(5)).Copy Destination:=there.Sheets("Sheet1").Rows(s + 1).Columns(log(5))
here.Sheets("Sheet1").Rows(w).Columns(source(6)).Copy Destination:=there.Sheets("Sheet1").Rows(s + 1).Columns(log(6))
Columns(log(6)).WrapText = True
Columns(log(6)).AutoFit
Columns(log(6)).ColumnWidth = 30
Next s
Next w
my copy file has 9 rows with data. my destination file has 8 rows with data that the macro copied over.
anyone know why i cant copy the last row?