Simplify Multiple Transactions

I am having a few problems with a stock sheet I have created and was wondering if there was a way to simplify the huge number of transactions.

I am trying to keep a log of stock and need to book parts in & out of stock - thus giving a live stock figure.

So far I am logging 'goods in' into the sheet in columns F to K (my actual sheet is much larger, and involves scrolling along lots of columns to enter fresh info) and 'goods out' in columns N to S. A simple formula then works out the live stock figure in C:6

What I am hoping for is to enter each transaction within just 1 cell (A:6 Goods In & B:6 Goods Out) for the sheet to automatically log the date and qty of each transaction and then turn into a blank cell again waiting for the next transaction to take place. Sample11.xlsx

Is something like this possible or just an easier way of doing it?

Thanks so much for your reply - I'll see how I get on with your suggestion.

Capture12.PNGHi - I'm back again.

I have tried to incorporate your formula into my actual stock sheet but have ran into some difficulty.

I have enclosed a screen shot of the file and the associated columns / rows (in blue).

Could you help with the formula I should be inputting into each cell?

Thanks

Try this:

1) Enter amounts into the "Good Received" or "Goods Issued" fields
2) Columns F:J and N:S will be populated with quantities and todays date

Private Sub Worksheet_Change(ByVal Target As Range)

Dim cell As Range
Dim rng As Range
Dim r1 As Long

'###### For Goods Received...
If Not Intersect(Target, Range("A:A")) Is Nothing Then
    If Target.Value = "" Then Exit Sub  'If cell is blank, then exit sub...
    r1 = Target.Row
    Set rng = Range(Cells(r1, 6), Cells(r1, 11))    'Cells to enter received...
    
    For Each cell In rng
        If cell.Value = "" Then
            Cells(r1, cell.Column).Value = Target.Value
            Cells(r1, cell.Column).Offset(-1, 0).Value = Date
            Exit For
        End If
    Next cell
End If


'###### For Goods Issued...
If Not Intersect(Target, Range("B:B")) Is Nothing Then
    If Target.Value = "" Then Exit Sub  'If cell is blank, then exit sub...
    r1 = Target.Row
    Set rng = Range(Cells(r1, 14), Cells(r1, 19))    'Cells to enter received...
    
    For Each cell In rng
        If cell.Value = "" Then
            Cells(r1, cell.Column).Value = Target.Value
            Cells(r1, cell.Column).Offset(-1, 0).Value = Date
            Exit For
        End If
    Next cell
End If

End Sub