At the end I am calling another macro to automcatically run. Combining them
into one was not working very well.



Option Explicit

Sub Send_To_Database()

If MsgBox("Are you sure you want to submit this order?", vbYesNo) = vbNo
Then Exit Sub

Dim SourceRange As Range
Dim DestRange As Range
Dim DestWB As Workbook
Dim DestSh As Worksheet
Dim Lr As Long

With Application
.ScreenUpdating = False
.EnableEvents = False
End With

If bIsBookOpen_RB("Orders.xls") Then
Set DestWB = Workbooks("Orders.xls")
Else
Set DestWB = Workbooks.Open("G:\Destination path\Orders.xls")
End If

Set SourceRange = ActiveWorkbook.Sheets("Sheet1").Range("B12:L12")

Set DestSh = DestWB.Worksheets("Sheet1")


Lr = LastRow(DestSh)
Set DestRange = DestSh.Range("A" & Lr + 1)


With SourceRange
Set DestRange = DestRange.Resize(.Rows.Count, .Columns.Count)
End With
DestRange.Value = SourceRange.Value

DestWB.Close savechanges:=True

With Application
.ScreenUpdating = True
.EnableEvents = True
End With

Call Email_Data

End Sub



"Ron de Bruin" wrote:

Show us your code then

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm




"cluckers" wrote in message ...
Thanks for the post. However, I have gotten the macro to work but sometimes
it does not always exoprt the data to the destination workbook. Do you know
why this sometimes does not work?

"Ron de Bruin" wrote:

Hi cluckers

Maybe this will help

See the last example on this page : What if the Database sheet is in another workbook
http://www.rondebruin.nl/copy1.htm

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm




"cluckers" wrote in message ...
Is there a way to export a range of data of my current worksheet to the next
blank row on a closed workbook? I have a template excel file used to place
orders and I want to copy the order information (ex B3:F3) to the next
available row in a workbook that has all of the orders.

Thanks