Hi
I have created a macro which copies data from sheet1 to sheet3, but i only want to copy the data on sheet3 from first empty column in column 'B' and not from 'A'. In my case, in sheet3 column 'A' contains serial numbers and i only want the data from sheet 1 to be copied to sheet 3 from first empty column B cell which would be empty but below code only copies data to first empty row rather than column.
The scenario is in sheet3!ColumnA contains serial number and the data entered in Sheet1 should copy to sheet3 where the serial number doesn't belong any data so that the newly copied row would be associated to existing serial number.
My code is as below:
Worksheets("sheet3").Select
Worksheets("sheet3").Range("B1").Select
If Worksheets("Sheet3").Range("B1").Offset(RowCount, 1) <> "" Then
Worksheets("sheet3").Range("B1").End(xlDown).Select
MsgBox RowCount
End If
RowCount = Worksheets("Sheet3").Range("B1").CurrentRegion.Rows.Count
With Worksheets("sheet3").Range("B1")
.Offset(RowCount, 0) = ReqBy
.Offset(RowCount, 1) = Dept
.Offset(RowCount, 2) = AppBy
End With
Worksheets("sheet1").Select
Worksheets("sheet1").Range("C8").Select
ActiveWorkbook.Save
Thanks in advance
Fayz
Bookmarks