Run two macros in one sheet when a cell value = 1

Hi,

I am new to the visual basic. I need to copy data from two Columns to another two columns. I think the two macros below should work for me (got it from google search). But how can only activate these macros when the value of cell A1=1. Please help me to write the code.

Thank you

General Macro1

Sub Macro1()
Dim i As Integer
i = 3
Do While Cells(i, 7).Value <> ""
Cells(i, 11).Value = Cells(i, 7).Value
i = i + 1
Loop
End Sub


General Macro2


Sub Macro2()
Dim k As Integer
k = 3
Do While Cells(k, 8).Value <> ""
Cells(k, 12).Value = Cells(k, 8).Value
k = k + 1
Loop
End Sub

Thank you for your response.
Please explain, how can I modify your Macro to run two operations?
Please find the attached file.

Regards
Blessen

Thank you very much for the code and your valuable time.

I wish it runs continuously as long as A1 =1 and copy any new Cell values from G and H columns to K and L columns. Then stops when A1=0
It now runs only when I press F5 (Run) on the VBA Project window. Any thoughts to make it happen.

Regards,
Blessen

Hi,

It is a project work. This is my wish list
Excel add-in called MXsheet from Mitsubishi, records data to the cells from a machine PLC. A1 is assigned to a bit device, On=1 and off=0
If A1 is ON, then readings from two temperature sensors are taken to the G and H columns and those readings need to be shifted to another sheet or columns in the same sheet.
When A1=0, then save the data and create a line trend graph from the two readings. If the Macro can print the graph, I will be over the moon.
The MX sheet deletes the G and H readings when it starts again. Those columns are assigned to the MXsheet.
The number of rows are depending on the duration of the machine cycle, it varies from 10 min to 20 min. The sampling rate can be adjusted, ideally every 10 seconds.
I hope you could understand the logic to help me. Please...

Thank you

hi,
Thank you for the code.
I had the run time error 9 on excel, just got it fixed.
Your code is working when I manually entered 1 into cell A1. To make the transfer live, I am going to pulse A1 on every second, so the updated rows on G & H will be transferred to K & L. Did not test with the add-in yet, probably will get a chance to check it on Monday.
Thank you for your time.
Sorry for the delay in replying you.