Ok, I have 4 columns:

Department, Date, Employee Name, Daily HR attendance code

so

A, B, C, D

Headers are on row 1, everything below that is data...

So what I wanted to be able to do, is change the HR code with a script,
incase managers make a mistake.

So, first first the Date from B, then in Offset find the right name to
match the date, and then if those two match change the HR code using
offset on the same row.

starts here -------------

Sub changedhrcode()

Dim lastrow As Long
Dim cell As Range
Dim txtDate As Date
Dim txtName As String
Dim txtHR As String

lastrow = Range("B65536").End(xlUp).Row
txtDate = InputBox("Enter Date You want the records searched:", "Enter
Date")
txtName = InputBox("Enter Employee Name to search for:", "Enter Name")
txtHR = InputBox("Enter HR Code to replace old:", "Enter HR Code")

For Each cell In Range("B1:B" & lastrow)
If cell.Value = txtDate & cell.Offset(0, 1).Value = txtName Then
cell.Offset(0, 2).Value = txtHR
Next cell

End Sub

So I highlighted a row that I wanted to test this script on, I enter
the Date, then the Name, and then the new HR code that was supposed to
replace it, but it doesn't replace it, so I am not sure where the
script is not right.

Can any one help ?