Hi Folks,

My plan is to take data from various cells in a worksheet and transfer it to a different workbook and present this data in rows.

I have tried to do this in the following macro


Sub Macro2()
'
' Macro2 Macro
'

'
Dim itemProjectName As String
Dim itemScopeofWork As String

Dim myData As Workbook
    
    Worksheets("Sheet1").Select
    itemProject = Range("B6")

Set myData = Workbooks.Open("C:\Rob\Test.xlsm")

    Worksheets("SheetA").Select
    Worksheets("Sheet1").Range("B6").Select

    RowCount = Worksheets("SheetA").Range("B6").CurrentRegion.Rows.Count
    With Worksheets("SheetA").Range("B6")
    Offset(RowCount, 0) = itemProjectName
    Offset(RowCount, 1) = itemScopeofWork
    End With
    myData.Save
    
End Sub
To no success.

Please advise what I must correct