OFFSET one row and one column if active cell is in specific column

[Sufiyan97]

I am using below code to enter time

I want to make it, offset one column if active cell is in column G
and OFFSET one row and one column if active cell is in column H

Sub iTime()
    With ActiveCell
        .Value = Format(Time, "hh:mm")
         .Offset(0, 1).Select
   End With
End Sub

 

[Fluff]

How about

Sub iTime()
    With ActiveCell
        .Value = Format(Time, "hh:mm")
         If .Column = 7 Then
            .Offset(0, 1).Select
         Else
            .Offset(1, 1).Select
         End If
   End With
End Sub

 

[Sufiyan97]

Thank you very much Fluff

Works Perfect

 

[Fluff]

You're welcome & thanks for the feedback.