I wonder if you can help me to do a loop in a program to write the following
cells from file ”A”:
C2, C3, C4, F2, F3, and F4
Then, locate it in the following cells of file “B”:
B2, C2, D2, E2, F2, and G2

Basically, the information from the cells in the file “A” will change and
then I want to archive it in the file “B” in the next empty row (B3, C3, D3,
E3, F3, and G3) and so on.

I wrote the macro that does only for the first row (see below). I was not
able to get the loop the write in the next empty row.
Could you please help me with this matter?

Thanks in advance.
Maperalia


‘*****************************************************************
Sub CreateDatabase()

Workbooks.Open Filename:="C:\Excel\Creating Database\B.xls"
Range("B2").Select
ActiveCell.FormulaR1C1 = "=[A.xls]Information!R2C3"
Range("C2").Select
ActiveCell.FormulaR1C1 = "=[A.xls]Information!R3C3"
Range("D2").Select
ActiveCell.FormulaR1C1 = "=[A.xls]Information!R4C3"
Range("E2").Select
ActiveCell.FormulaR1C1 = "=[A.xls]Information!R5C3"
Range("F2").Select
ActiveCell.FormulaR1C1 = "=[A.xls]Information!R2C6"
Range("G2").Select
ActiveCell.FormulaR1C1 = "=[A.xls]Information!R3C6"

ActiveWorkbook.Save
ActiveWindow.Close
End Sub

‘*****************************************************************