Sub FF_Temp_Upload()


Application.ScreenUpdating = False
Dim Workbk As Workbook
Set Workbk = ThisWorkbook
Dim WS As Worksheet
Set WS = Workbk.Sheets("Upload")

Dim LR As Long
Dim Cell As Long
Dim Ret As String



LR = Range("B" & Rows.Count).End(xlUp).Row
Ret = IsWorkBookOpen("Workbook'slocationOVS Upload TemplateSAMPLE.xlsx")


If Ret = True Then
    MsgBox "Template is currently being updated elsewhere. Please try again."

    Exit Sub

    Else

Workbooks.Open FileName:= _
    "Workbook's locationOVS Upload TemplateSAMPLE.xlsx"

End If



Dim temp As Workbook
Dim FF As Worksheet
Set temp = ActiveWorkbook
Set FF = temp.Sheets("Sheet1")


WS.Activate
WS.Range("A2:C" & LR).Select
Selection.Copy

FF.Activate

If Range("A2") = "" Then

FF.Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Application.CutCopyMode = False

Else

FF.Range("A1").Select
Selection.End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Application.CutCopyMode = False

End If

WS.Activate
WS.Range("H2:H" & LR).Select
Application.CutCopyMode = False
Selection.Copy


FF.Activate

If Range("L2") = "" Then

FF.Range("L2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Application.CutCopyMode = False
Else

FF.Range("L2").Select
Selection.End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Application.CutCopyMode = False
End If


FF.Range("$A$1:$M$100000").RemoveDuplicates Columns:=1, Header:=xlYes

LR = Range("B" & Rows.Count).End(xlUp).Row

With FF
.Range("B2:B" & LR) = "=text(left(A2,8),""00000000"")"
.Range("B2:B" & LR).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Application.CutCopyMode = False
.Range("C2:C" & LR) = "=""DCG""&MID(A2,9,4)"
   .Range("C2:C" & LR).Select
    Selection.Copy
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Application.CutCopyMode = False

.Range("D2:D" & LR).Formula = "DT"
.Range("I2:I" & LR).Formula = "730"
.Range("M2:M" & LR).Formula = "MAJOH73"

End With

ActiveWorkbook.Save
ActiveWindow.Close
Workbk.Activate

MsgBox "Articles Uploaded"



End Sub