Sub createGraph()
    Dim i, j
    Dim ws As Worksheet
    Dim modelWS As Worksheet
    Dim graphWS As Worksheet
    Dim cellA As Range
    Dim cellB As Range
    Dim outputCell As Range
    Dim upperA As Integer
    Dim lowerA As Integer
    Dim upperB As Integer
    Dim lowerB As Integer
    Dim cRow As Integer
    
    
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name = "GraphData" Then
            Application.DisplayAlerts = False
                ws.Delete
            Application.DisplayAlerts = True
        End If
    Next ws
    
   
    Set graphWS = ThisWorkbook.Sheets.Add
    graphWS.Name = "GraphData"
    graphWS.Range("A1") = "A"
    graphWS.Range("B1") = "B"
    
    '''''''''' Change as necessary
    Set modelWS = ThisWorkbook.Sheets("Model")
    Set cellA = modelWS.Range("A1")
    Set cellB = modelWS.Range("A2")
    Set outputCell = modelWS.Range("A3")
    lowerA = 0
    upperA = 50
    lowerB = 20
    upperB = 100
    ''''''''''
    
    For i = lowerA To upperA
        For j = lowerB To upperB
            cellA = i
            cellB = j
            If outputCell > 0 Then
                cRow = graphWS.Range("A65000").End(xlUp).Row + 1
                graphWS.Range("A" & cRow) = i
                graphWS.Range("B" & cRow) = j
            End If
        Next j
    Next i
    
    Charts.Add
    ActiveChart.ChartType = xlXYScatter
    ActiveChart.SetSourceData Source:=graphWS.Range("A1:B" & cRow), PlotBy:=xlColumns
    ActiveChart.Location Where:=xlLocationAsObject, Name:=modelWS.Name
End Sub

=LEFT(A1,FIND(":",A1))&RIGHT(A1,LEN(A1)-FIND(":",A1,FIND(":",A1)+1))

Sub Copy_To_Another_Workbook()
    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("current worksheet") Then
        Set DestWB = Workbooks("Current worksheet")
    Else
        Set DestWB = Workbooks.Open("target workshee")
    End If
    Set SourceRange = ThisWorkbook.Sheets("Sheet1").Range("A2:D2")
    Set DestSh = DestWB.Worksheets("Grains recieving Daily")
    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
End Sub
Function LastRow(sh As Worksheet)
    On Error Resume Next
    LastRow = DestSheet.Cells(Rows.Count, "A").End(xlDown).Row
    On Error GoTo 0
End Function


Function LastCol(sh As Worksheet)
    On Error Resume Next
    LastCol = sh.Cells.Find(What:="*", _
                            After:=sh.Range("A1"), _
                            Lookat:=xlPart, _
                            LookIn:=xlFormulas, _
                            SearchOrder:=xlByColumns, _
                            SearchDirection:=xlPrevious, _
                            MatchCase:=False).Column
    On Error GoTo 0
End Function

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then
        otherwbpath = "c:\newworkbook.xls"
        Set tmpWB = Workbooks.Open(otherwbpath)
        tmpWB.Sheets("sheet1").Range("a1") = Target.Value
        tmpWB.Close savechanges:=True
    End If
End Sub