Copy a row result of formula as a value in another sheet as a database

Hi its my first enquiry here,
please im not professional in Vba, just know some basics
i need to copy the values resulted from a formulas in the range of sheet1!D31:O31 to match the year in sheet2!A:A and paste the values in its row starting from column B... or paste after the last filled row
p.s: can also check the cell of the year in A3 in sheet1?
code please!

Thanks,
the attached workbook contains sheet called Entry where the icon contains the macro action i need.
under it there is the cell where i need to check the year(Entry!A3), so to find in the "Historical data" sheet the corresponding year in column A and to paste the copied values from sheet "All data" in the range D31:O31 i.e: from january to december which will be filled during the year from the data in the sheet "Shipments" and then by the new year i want to reset the data in "shipments which will clear the values in the desired range, so i want every time the macro copy the values in Historical data as a data base in front of the corresponding year..
am i clear. please help in that

Any body going to help. ?!?!? reply please

thanks so much, appreciated.
except for the last line should be rn3.value = rn2.value
thnx

another question please, can i use same variables for other ranges in the same sub, or should i create another sun with another values in the same module?!?!

no i want the value in rn2 to be copied to rn3 where ill fill as a data base "historical data" so the source in rn2 and the destination in rn3
..
i want to repeat this step to acquire another values from "All data" to the same sheet"historical data" and search for the same value of rn1 in another row in column 1.. could this be applicable? i mean is the following code correct?

Please Login or Register  to view this content.