Hi Cabby205
Welcome to the forum...
This should get you started...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Long
If Not Intersect(Target, Range("B2:S2,B4:S4,B6:P6")) Is Nothing Then
Application.EnableEvents = False
For i = 1 To 5
If Cells(8, i + 1) = "" Then
Cells(8, i + 1) = Target
Exit For
End If
Next i
Application.EnableEvents = True
End If
End Sub
Or No loop...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim lc As Long
If Not Intersect(Target, Range("B2:S2,B4:S4,B6:P6")) Is Nothing Then
Application.EnableEvents = False
lc = Cells(8, Columns.Count).End(xlToLeft).Column
If lc < 6 Then Cells(8, lc + 1) = Target
Application.EnableEvents = True
End If
End Sub
Bookmarks