Indsæt ud for korrekt dato celle

Dim xValue

Sub xWrite()
Application.ScreenUpdating = False
xValue = Range("A1")
'Ret sti og filnavn.type til aktuel
Workbooks.Open Filename:="C:\Users\Poul\Desktop\My_Test.xlsx"
'Ret arknavn og evt. range til aktuel
Sheets("Ark1").Range("A1:A1000").Find(Date, LookIn:=xlValues, LookAt:=xlWhole).Offset(0, 1).Select
Selection.Resize(1, 3) = xValue
ActiveWorkbook.Close True
Application.ScreenUpdating = True
End Sub

Det virker fint, dog skal værdien ikke sættes ind 3 steder (B,C,D) men kun et sted i en celle der er fri. Står der en allerede en værdi ud for dato 15-03-2018 i celle B, skal værdien sættes ind i celle C, altså fortløbende i en celle der er fri.

Sub xWrite()
Application.ScreenUpdating = False
xValue = Range("A1")
'Ret sti og filnavn.type til aktuel
Workbooks.Open Filename:="C:\Users\Poul\Desktop\My_Test.xlsx"
'Ret arknavn og evt. range til aktuel
Sheets("Ark1").Range("A1:A1000").Find(Date, LookIn:=xlValues, LookAt:=xlWhole).Select
Selection.Offset(0, Cells(Selection.Row, 16000).End(xlToLeft).Column) = xValue
'Selection.Resize(1, 3) = xValue
ActiveWorkbook.Close True
Application.ScreenUpdating = True
End Sub

husk lige
Dim xValue
før koden

Tak.
Koden fejler ikke, filen (projektet) bliver åbnet og gemt, men der er ikke nogle værdier i feltet ud for dato. Med andre ord den gemmer ikke værdierne.

Er alle celler tomme i samme række til højre for hvor værdi skal indsættes.?
hvis der fx er et enkelt mellemrum eller anden værdi i en celle ude til højre, vil værdien blive indsat til højre for denne celle.

Der er ikke nogle usynlige tegn eller lignende i felterne. Jeg kan dog se på filen at den har været åbnet og gemt, da datoen i stifinder ændrer sig.

Koden virker fint i min test
har rettet i denne linie.:
Selection.Offset(0, Cells(Selection.Row, Columns.Count).End(xlToLeft).Column) = xValue


Sub xWrite()
Application.ScreenUpdating = False
xValue = Range("A1")
'Ret sti og filnavn.type til aktuel
Workbooks.Open Filename:="C:\Users\Poul\Desktop\My_Test.xlsx"
'Ret arknavn og evt. range til aktuel
Sheets("Ark1").Range("A1:A1000").Find(Date, LookIn:=xlValues, LookAt:=xlWhole).Select
Selection.Offset(0, Cells(Selection.Row, Columns.Count).End(xlToLeft).Column) = xValue
ActiveWorkbook.Close True
Application.ScreenUpdating = True
End Sub