I need code that will copy data from sheet ''Data" cell F5 to last column containing data in row1 on sheet "summary" for eg if the last column containing datain row 1 is H1, then the data must be copied from F5 in sheet data and pasted into I1 in sheet summary
I have code but need it to be amended to suit my requirements
the code below copies the data to the last row in Col A.
It would be appreciated if someone could kindly copy the data
I have code but need it to be amended to suit my requirements
the code below copies the data to the last row in Col A.
It would be appreciated if someone could kindly copy the data
Code:
Sub Copy_Data()
Application.ScreenUpdating = False
Dim copySheet As Worksheet
Dim pasteSheet As Worksheet
Set copySheet = Worksheets("Data")
Set pasteSheet = Worksheets("Summary")
copySheet.Range("F5").Copy
pasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub