I have a code where I transfer daily data from €œConsumption Per Day€� sheets
to €œFinish Per Day€� sheets its working nice. But I have one problem i.e.
It transfers data like date from A2 cell each time so if there are no data
in Consumption per day sheet it transfer date all the time.
Is there any way it should not transfer data if there is no data?

Any help.

Sub Register_Finish_Per_Day()

Dim lrow As Long

lrow = Sheets("Finish Per Day").Cells(Rows.Count, "A").End(xlUp).Offset(1,
0).Row

Worksheets("Finish Per Day").Range("A" & lrow).Value = _
Worksheets("Consumption Per Day").Range("A2").Value

Worksheets("Finish Per Day").Range("B" & lrow).Value = _
Worksheets("Consumption Per Day").Range("A4").Value

Worksheets("Finish Per Day").Range("C" & lrow).Value = _
Worksheets("Consumption Per Day").Range("B4").Value

lrow = Sheets("Finish Per Day").Cells(Rows.Count, "A").End(xlUp).Offset(1,
0).Row

Worksheets("Finish Per Day").Range("A" & lrow).Value = _
Worksheets("Consumption Per Day").Range("A2").Value

Worksheets("Finish Per Day").Range("B" & lrow).Value = _
Worksheets("Consumption Per Day").Range("A5").Value

Worksheets("Finish Per Day").Range("C" & lrow).Value = _
Worksheets("Consumption Per Day").Range("B5").Value

lrow = Sheets("Finish Per Day").Cells(Rows.Count, "A").End(xlUp).Offset(1,
0).Row

Worksheets("Finish Per Day").Range("A" & lrow).Value = _
Worksheets("Consumption Per Day").Range("A2").Value

Worksheets("Finish Per Day").Range("B" & lrow).Value = _
Worksheets("Consumption Per Day").Range("A6").Value

Worksheets("Finish Per Day").Range("C" & lrow).Value = _
Worksheets("Consumption Per Day").Range("B6").Value

lrow = Sheets("Finish Per Day").Cells(Rows.Count, "A").End(xlUp).Offset(1,
0).Row
end sub