jacob kindly helped me with the following code below.

This works a treat but i need it to do a couple more things.

I need B10 to go into an external closed excel into column A and then the
rest to appear in column B onwards.

Please Help.

Sub Macro()
Dim lngRow As Long, rngTemp As Range
Dim wbBook As Workbook, wsDest As Worksheet

Set rngTemp = ActiveSheet.Range("A1:A3")

Set wbBook = Workbooks.Open("<fullpath\<filename.ext")
Set wsDest = wbBook.Sheets("Sheet1") 'Destination sheet
lngRow = wsDest.Cells(Rows.Count, "A").End(xlUp).Row + 1
rngTemp.Copy wsDest.Range("A" & lngRow)

wbBook.Close True

End Sub

B10 is a single cell. Where in column A does it go? Athe what do you mean by
"the rest"?



"Neil Holden" wrote:

jacob kindly helped me with the following code below.

This works a treat but i need it to do a couple more things.

I need B10 to go into an external closed excel into column A and then the
rest to appear in column B onwards.

Please Help.

Sub Macro()
Dim lngRow As Long, rngTemp As Range
Dim wbBook As Workbook, wsDest As Worksheet

Set rngTemp = ActiveSheet.Range("A1:A3")

Set wbBook = Workbooks.Open("<fullpath\<filename.ext")
Set wsDest = wbBook.Sheets("Sheet1") 'Destination sheet
lngRow = wsDest.Cells(Rows.Count, "A").End(xlUp).Row + 1
rngTemp.Copy wsDest.Range("A" & lngRow)

wbBook.Close True

End Sub

Hi, B10 is a project number, I have an external excel sheet so once the
approve button is pressed all the relevant data will automatically go into my
external sheet.

At the moment when i press the approve button i have A13:Q75 to copy into
the excel sheet, however i need that range to automatically copy into the B
column not the A Column and then i need in column A what ever that is in B10.
I know this will probably sound confusing.

Thanks.

"Neil Holden" wrote:

jacob kindly helped me with the following code below.

This works a treat but i need it to do a couple more things.

I need B10 to go into an external closed excel into column A and then the
rest to appear in column B onwards.

Please Help.

Sub Macro()
Dim lngRow As Long, rngTemp As Range
Dim wbBook As Workbook, wsDest As Worksheet

Set rngTemp = ActiveSheet.Range("A1:A3")

Set wbBook = Workbooks.Open("<fullpath\<filename.ext")
Set wsDest = wbBook.Sheets("Sheet1") 'Destination sheet
lngRow = wsDest.Cells(Rows.Count, "A").End(xlUp).Row + 1
rngTemp.Copy wsDest.Range("A" & lngRow)

wbBook.Close True

End Sub