Optimized macro to run more efficiently

Any help is appreciated!!!!
I would like to make this run faster and more efficiently. It goes on to 16 more sheets with different cells and columns.

Sub CopyData()
Dim myDate As Date
Dim myValue As Variant
myDate = Worksheets("entry").Range("A1").Value

'reading 1
myValue = Worksheets("entry").Range("B3").Value
Worksheets("sheet1").Range("A:A").Find(myDate).Offset(0, 4).Value = myValue
'reading 2
myValue = Worksheets("entry").Range("D3").Value
Worksheets("sheet1").Range("A:A").Find(myDate).Offset(0, 6).Value = myValue
'reading 3
myValue = Worksheets("entry").Range("F3").Value
Worksheets("sheet1").Range("A:A").Find(myDate).Offset(0, 8).Value = myValue
'reading 4
myValue = Worksheets("entry").Range("D6").Value
Worksheets("sheet1").Range("A:A").Find(myDate).Offset(0, 10).Value = myValue
'reading 5
myValue = Worksheets("entry").Range("F6").Value
Worksheets("sheet1").Range("A:A").Find(myDate).Offset(0, 11).Value = myValue
'reading 6
myValue = Worksheets("entry").Range("H6").Value
Worksheets("sheet1").Range("A:A").Find(myDate).Offset(0, 12).Value = myValue
'reading 7
myValue = Worksheets("entry").Range("D8").Value
Worksheets("sheet1").Range("A:A").Find(myDate).Offset(0, 13).Value = myValue
'reading 8
myValue = Worksheets("entry").Range("F8").Value
Worksheets("sheet1").Range("A:A").Find(myDate).Offset(0, 14).Value = myValue
'reading 9
myValue = Worksheets("entry").Range("H8").Value
Worksheets("sheet1").Range("A:A").Find(myDate).Offset(0, 15).Value = myValue
'reading 10
myValue = Worksheets("entry").Range("D10").Value
Worksheets("sheet1").Range("A:A").Find(myDate).Offset(0, 16).Value = myValue
'reading 11
myValue = Worksheets("entry").Range("F10").Value
Worksheets("sheet1").Range("A:A").Find(myDate).Offset(0, 17).Value = myValue
'reading 12
myValue = Worksheets("entry").Range("H10").Value
Worksheets("sheet1").Range("A:A").Find(myDate).Offset(0, 18).Value = myValue