Sorry i cannot write out all the code, the following one maybe can help you. you have to complete the code according to your company needs.
Workbooks("autosaveinvoice").Worksheets("Inventory Out").Activate
Range("A4").Select
If Range("A4").Value = "" Then
Range("A4").Activate
Else
Range("A4").CurrentRegion.Select
ActiveCell.Offset(Selection.Rows.Count, 0).Activate
End If
With ActiveCell
.Value = Worksheets("invoice").Range("c3").Value
.Offset(0, 1).Value = Worksheets("invoice").Range("c4").Value
.Offset(0, 2).Value = Worksheets("invoice").Range("c6").Value
End With
Bookmarks